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*t DE 6502 KENICRS « - EEN CLUB VDOR 8XXXX GEBAJIKERS *t DE 6502 KENNER tf 



mi BLAO VDOR 6XXXX BEBRUIKERS 



De vfrmiging hitft liden in NfdtrUnd. Btlgit, DuitiUnd, 
Frankriik, Spanje, Portugal. Aeerika, Zatbia, Deimarkeru 
Het dofi van dt vtfflniglna if i hit btvordtrtn van da ktn- 

nisuitnisseling tussen gebniikers van 6XXXX-CMputars, als 
CaNWDORE-64. Me. OC-1. PEAflCQN, flIH-«, SYK, PET BSC 
flTflRI, VIC-26, BflSiS lOB, JWTOKoaprttrt, in-i020, OSL 
ACC 8000, ACOM ELECTRON. SYSTEM 69, PC-I06, PALLAS *NINTli 
FOWreA. ORIC-1, STARLI6HT. CV-777, ESTATE II L SBfc63/6a, 
KIM, NCS, KENPAC SYSTEPh4, tlektuur-coaputers (JUNIOR, en 
de OCTOPUS) LASER^ aaar 00k 6800, 6809 en 68000-coMuters. 
De kennisuitNisseling Nordt o.a. gerealiseerd door 6 aaal 
per jaar DE 6502 KEMlER te publiceren, door het houden van 
landflijke clubbi^eenkoasten, door het instandhouden van 
een cafsette-bibliotheek en door het verlenen van paper- 
nare-service. Regionale bijeenkoftsten worden door de leden 
georganiseerd. 

Vtnchijningsdata 
DE 65D2 KBWER 19 85 

derde zaterdag van 
februari, april, juni, 
augustus, oktober, deceftber. 

Inlichtingen over de regio- 
bljtenkoMtini 

Strard van Roekel 
Van dtr Palattraat 11 - C 
3139 LK Vlaardingen 

Tel.: 010 - 351101 



Bijeenkoftsten van de club 

derde zaterdaq van 
januari, aaarf, tei, 
September, noveeber. 

Redaktie-adres en inforaa 
ties over papernare etc. 

yillea L van Pelt 
Jacob Jordaensstraat 15 

2923 CK Krifepen/IJssel. 
Tel.: 01807 - 19881 



Di vertniging is volledig onafhankelijk, is statutair op- 

iericht en ingctchreven bij de Kaier van Kooohandel en Fa- 
riiktn voor Hollands Noorderknartier te Alkaur, '^nder 
nuiter 634309. 



Voorzitterx 
Rinus Vleesch-Dubois 
Fl. Night ingalestraat 
2037 nS Haarlet 
Til. I 023 - 330993 



212 



Sikritarifi 

Gert Klein 
Diederaieg 119 
6706 CM fiageni 
Tel. : 08370 - 



ningen 
- 23646 



Penningteester: 
John F. van Sprang 

Me 71 

2925 EH Kriipin/IJiiil. 
Til. I 01807 - 20989 



Redaktie DE 6502 KBiCR: 
Hi Ilea L van Pelt 
Jacob Jordaensstraat 15 
2923 CK Kriapen/Ussil. 
Til. I 01807 - 19881 



Lidini 
Adri Hankil 
Emin Visschedijk 
Gert van Opbroek 
Nico de Vries 
Erevoorzitter: 
Ereleden 

Lidiaatschap : 



) 



Hardiiarf/softiiari/D0S65 

Hardi»re/50ftMare/D0S65 



Van der Uinden 



(05490 - 51151 
(05490 - 71416 ) 
(01729 - 8636 ) 

(010 - 502239) Hardnare/software/PET 
Siep de Vries 
Nm. H. de Vries 
Anton Muillir 

HFl. tt= per kalenderjaar, postreke- 
ning 3757645 t.n.v. Permingaeester KIM 
Sibruikirs Club Ned., Kriapen/Ussel. 

Advertent ies : Tarieven op aanvraag bij de redaktie. 



DE 6502 KENNER is sen uitgave van de KIM Bebruikers Club 
Nederland. Mst blad Mordt verstrekt aan leden van de club. 
DE 6S02 KENNER Nordt van kopij voorzien door liden van de 
club, bij de optaak van etn publikatie bijgestaan door di 
ridaktii. Di inzindingin van prograaaa's dienen voorzien te 
zim van koaaentaar in de listinas en zo aogelijk door een 
inliidlna voorafgagaan. Publikatia van ten inzanding bete- 
kent niet dat de redaktie of het bestuur enioe aansprake- 
lijkheid aanvaardt voor de toepassing ervan. De inzendingen 
kunnen geschieden in asseablv-source-listings, in Basic, in 
Basicode, Forth, Focal, Coaal, Pascal, Fortran, Cobol, Logo 
Elan, etc. etc. 

De leden schri iven 00k artikelen over de door hen ontMikkel 
de hardware en/of aanpassingen daarop. Zij schrijven tevens 
artikelen van algeaene aard of reageren op publikaties van 
andere inzenders. 

DE 6502 KENNER IS EEN BLAD VAN EV DOOR DE L£DEN 

Micro-W)E Asseabler/Disasseabler/Editor is een produkt van 
Micro Hare Ltd., geschreven door Peter Jennings en bestead 
voor alle 6502-coaputers. De KIM Bebruikers Club Ned. heeft 
de copyrights ventorven nadat ons lid Sebo Holdringh (ie A K 
KIM-1 versie uitbreidde tot 8 K KIM-l versie. Adri Hankel 
paste deze aan voor de JUNIOR. Hillea L. van Pelt stelde 
een nieune d K source-listing voor de JJNIOR saaen. 
De lapleaentatie op andere systeaen dan de KI?f-l en JUNIOR 
kan iinvoudig gibeuren door het aanpassen van de I/O-adres- 
sen, uelke in de source-listing geaakkelijke te vinden zijn 

FATE Foraat-listar/cond. Assaabler/Tape-utilities/Editor is 
de door ons lid Rob Banen geschreven source-listing van een 
12 K universeel systeea voor de JUNIOR-coaputer aan de hand 
van het universele disk operatinc systea van de fa. Proton 
Electronics ta Hur^mi, nu aifcnikt voor Merken aet tapes. 
FATE Nordt beschikbaar gesteld aet toesteaaing van Proton. 

In di iditiN van DE 6502 KENNER norden regelaatig aedede- 
lingen gedaan over de door de club qeorganiseerde bijeen- 
koasten. Ook norden bestuurlijke aedeoelingen gedaan, naast 
inforaaties over hetgeen in de handel te koop is. Leden die 
lets ti koop hebben of iets zoeken kunnen dit in de edities 
van DE 6502 KEWER bekend aaken. Ook Morden brieven aan de 
redaktie gepubl iceerd, evenals soecifieke vragen van leden. 
De edities Horden saaengesteld op basis van een groot aan- 
tal prioritiitin, nilki door een redaktievergadenng worden 

gihantetrd. Deze vercadering bestaat uit de vaste aedewer- 
ars zoali in di coloron verael^j. Het aar.tal inzendingen is 
qroter dan in een enkele eciitie vaii ainiaaal 48 pagina's is 
te vemerken. Hierdoor kan het voorkoaen dat een inzending 
eerst na enige tijd kan worden gepubl iceerd. 



DE CLUD HEEn BEHDEFTE AAN «ER LEDEN. WILLEN MEER AAN 
KUWCN BIEDEN DAN NU AL HET BEVAL IS. UERF DAAROM EEN LID' 

HILT U EEN PRIJSLIOT? STUUR EEN SEFRftNKEERDE ENVELOP 
HET REDAKTIE-ADRES. 

Een onafhankiliike jury kent jaariijks een aantal aanaoe- 
diginQspreaies toe aan auteurs van gepubliceerde artikelen 
m DE'6502 KENNER. ' 



tf DE 6502 KEMCRS «« ~ EEN CLUB VOOR 6XXXX GEBftilKERS #« D£ £502 KENTCR 



££N BLAD VDOR 6XXXX SEBRUIKERS 



De vertniging hitft ltden in Midtfland. Btlgie, DuitiUnd, 
Frankriik, Spanje, Portugal Aierika, Zaftbia, Dmftarken. 
Het dot! van dt vtrtnigino in htt btvordartn van da ktn- 

nisuitNisseling tussen gebruikars van 6XXXX-CMputers, als 
CQNPOXNE-Si. APPLE. OE-1. PEARCQH, AIN-6S, SYR, PET BSC 
flTflRI. VIC-20, BflSiS lOe, JWTON-cotputtrt, in-i020. OSL 
ACC 8000, ACOm ELECTRON. SYSTEM &9, PC-IM, PALLAS 'nINTIi 
FORWSA. DRIC-1, STAHLlbfT. CV-TTT, ESTATE IIL SBt65/68, 
KIH, NCS, KENPAC SYSTDI-4, felektuur-cotputers (JUNIOR, en 
de OCTOPUS) LASER^ aaar ook 6800, 6809 en 68000-coMuters. 
De kennisuitNisseliM wordt o.a. gerealiseerd door 6 aaal 
per jaar DE 6502 KEMER te publiceren, door het houden van 
landclijke clubbijeenkoasten, door het instandhouden van 
een caisette-bibhotheek en door het verlenen van paper- 
nare-service. Regionale bijeenkotsten Morden door de leden 
georganisitrd. 

Vtrfchijningsdata 
DE 6502 KBHER 19 85 

derde zaterdag van 
februari, april, juni, 
augustus, oktober, decenber. 

Inlichtingen over de regio- 
bijaenkoiiteni 

Gerard van Roekel 
Van der PalMtraat 11 - C 
3139 LK Vlaardingen 

Tel.: 010 - 351101 



Bijeenkoftsten van de club 

derde zaterdag van 
januari, aaart, aei, 
September, noveaber. 

Redaktie-adres en inforaa 
ties over papentare etc. 

yillea L. van Pelt 
Jacob Jordaensstraat IS 

2923 CK Krifepen/IJssel. 
Tel.: 01807 - 19881 



De vereniging is voUedio onafhankelijk, is statutair op- 

!ericht en ingeichreven bij de Kater van Kooohandel en Fa- 
rieken voor Hollands NoorderkMartier te Alkaaar, 'tnder 
nuiier 634309. 



Sekretarist 

Gert Klein 
DiedenMea 119 
6706 CM Aageninoen 
Tel.: 08370 - 236i6 

Redaktie DE 6502 KENNER: 
Millet L. van Pelt 
Jacob Jordaensstraat IS 
2923 CK Kriaptn/IJssel. 
Tel. I 01807 - 19881 



Voorzitterx 

Rinus Vleesch-Dubois 

Fl. Night ingalestraat 212 

2037 NG HaarleA 

Tel. t 023 - 330993 

Penningteester: 
John F. van Sprang 
Mfi 71 

2929 EH Kriiptn/IJssel. 
Tal.i 01807 - 20989 



Ladtni 

Adri Hankel 
Emin Visschediik 
Gert van Opbroek 
Nico de Vries 
Erevoorzitter: 
Ereleden 

Lidtaatschap : 



Hardna re/so ftNare/D0S6S 

Hardiiare/softiiare/D0565 



(09490 - 91151 ) 
(05490 - 71416 ) 
(01729 - 8636 ) 

(010 - 502239) Hardnare/software/PET 
Siep de Vries 

Mm. H. de Vries - Van der Uinden 
Anton Mueller 

HFl. 45 = per kalenderjaar, postreke- 
ning 37S7649 t.n.v. Penningaeester KIM 
Gebruikers Club Ned., Kriapen/IJssel. 



DE 6902 KENNER is etn uitgave van de KIM Gebruikers Club 
Nederland. Itet blad Mordt verstrekt aan leden van de club. 
DE 6902 KENNER Mordt van kopij voorzien door leden van de 
club, bij de optaak van een publikatie bijgestaan door de 
redaktie. De inzendingen van prograiaa's dienen voorzien te 
ziin van koaaentaar in de listinas en zo aogelijk door een 
inleidina voorafgagaan. Publikatie van een inzending bete- 
kent niet dat de redaktie of het bestuur enioe aansprake- 
lijkheid aanvaardt voor de toepassing ervan. De inzendingen 
kunnen geschieden in asseablv-source-listings, in Basic, in 
Basicode, Forth, Focal, Coaal, Pascal, Fortran, Cobol, Logo 
Elan, etc. etc. 

De leden schrijven ook artikelen over de door hen ontMikkel 
de hardware en/of aanpassingen daarop. Zij schrijven tevens 
artikelen van algeaene aard of reageren op publikaties van 
andere inzenders. 

DE 6502 KENTCR IS EEN BLAD VAN E?« DODR DE LEDEN 

Micro-flDE Asseabler/Disasseabler/Editor is een produkt van 
Micro Ware Ltd., geschreven door Peter Jennings en bestead 
voor alle 6502-coaputBrs. De KIM Gebruikers Club Ned. heeft 
de copyrights veriiorven nariat ons lid Sebo Woldringh tfe 4 K 
KIM-1 versie uitbreidde tot 8 K KIM-l versie. Adri Hankel 
paste deze aan voor de JUNIOR. UiHea L. van Pelt stelde 
een nieune B K source-listing voor cle JIWIOR saaen. 
De iapleaentatie op andere systeaen dan de KIM-1 en JUNIOR 
kan etnvoudig ocbeuren door het aanpassen van de I/O-adres- 
sen, NeIke in de source-listing geaakkelijke te vinden zijn 

FATE For«at-lister/cond. Assaabler/Tape-utilities/Editor is 
de door ons lid Rob Banen geschreven source-listing van een 
12 K universeel systeea voor de JUNIOR-coaputer aan de hand 
van het universele disk operatinc systea van de fa. Proton 
Elect ronicf ta Naarden, nu aescnikt voor Merken aet tapes. 
FATE Mordt beschikbaar gesteld aet toesteaaing van Proton. 

In de editiea van DE 6902 KENNER Morden regelaatig aedede- 
lingen gedaan over de door de club qeorganiseerde bijeen- 
koasten. Ook norden bestuurlijke aedeoelingen gedaan, naast 
inforaaties over hetgeen in de handel te koop is. Leden die 
lets te koop hebben of iets zoeken kunnen dit in de edities 
van DE 6502 KBtCR bekend aaken. Ook Morden brieven aan de 
redaktie gepubliceerd, evenals specifieke vragen van leden. 
De edities Horden saaengesteld op basis van een groot aan- 
tal prioriteiten, Mike door een redaktievergadenng worden 
oehanteerd. Deze vergadering bestaat uit de vaste aedewer- 
6eff zoalt in dt colofon veraeld. Het aar.tal inzendingen is 

?roter dan in een enkele editie van ainiaaal 46 pagina's is 
e vemerken. Hierdoor kan het voorkoaen dat een inzending 
eerst na enige tijd kan Morden gepubliceerd. 



DE CLUB HEBFT BEHOEFTE MN MEER LEOEN. ^r] WILLEN MEER PAN 
KUWCN BIEDEN DAN NU AL HET GEVAL IS. WERF DAAROM EEN LID' 



yiLT U SN PRIJSLIJST? STUUR EEN SEFRANKEERDE ENVELOP 
HET REDAKTIE-ADfES. 



Advertent ies : Tarieven op aanvraag bij de redaktie. 



Een onafhankeli^ke jury kent jaarlijks een aantal aanaoe- 
diginaspreaies loe aan auteurs van gepubliceerde artikelen 
in DE'6502 KENNER. ' 
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De 6502 KENNER is publish- 
ed by the KIN Users Club 
The Netherlands. 

Address all editorial, ad- 
vertising and subscription 
inquiries DE 6S(« KENNER: 
c/o Hille« L van Pelt 
Jacob Jordaensstraat IS 
2923 CK Kriapen i/IJssil 
The Netherlands 

Editorial Staff: 

yillea L van Pelt 
6erard van Roekel 
Frans Sieehuiizen 
Coen Boltjes 

Freelancers: 

Fred Behringer, (Gemany) 
AndreH Gregory, (England) 
Narc Lachaert, <Belgiui) 
Fernando Lopes, (Portugal) 
Gert van Oporoek 
Leif RasAussen, (Den«ark) 
Ruud lk)hof f 
Frans \ferberkt 
Siaon Voort*an 
Herman Zondag 



Translations: 

Fred Behrinoer, (Geraany) 
Uillefi van Asperen 
Frank Bens 
Albert v.d. Beukel 
Rene Hettf leisch 
Coen Kleipool, (France) 
Maarten van Lieshout 
Antoine Negens 
and aany others. 

Nothing aay be reprinted 
in part or in whole with- 
out peraission froa the 
publiser. Practising 
of the published prograas 
and hardware etc. without 
responsibility of the pu- 
blisher and for personal 
purpose only. 
DE G502 KENNER appears 
in Febr, Apr, May, July, 
Sept, Oct, and Dec. 

Copyright (C) 1986 KIM 
Gebruikers Club Nederland 

On frontpage is the D0S65 
control lercard, developed 
by our Mttber Ad Brouwer. 
CAD/CAM: E. Visschedijk. 
Coop. : A. Hankel 
Photo s Fr. Visschedijk. 

The redaktion is not res- 
posible for the contents 
of the articles, prograas 
in the issues. The arti- 
cles to be published have 
to be written by the sen- 
der. 
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Print your articles, prograas etc. niih a tm iMoif i 
aax. 7& lines/page. « . , _. , x ^ x 

Write your articles, prograas etc. in English unless you need help to do it. 

Send the naaes and 4«^il^^«^^'«iiiiHW you know in your own country or 
you found in aagazines to the editorial office. Ue will send mforaation to 
those coaputerists and try to ftake thea joining our club. 

Send the naaes and addresses of the cmm^ lagazines in your country to 
the editorial i^fim. VHt mll send the A^ziiw infof^iitions idMrut our club 
to give attention to ft «id to get iMters in pur own area. 

PLEASE PAY YOUR 1987 SUBSGBPnH 6tFI. ^» or Iitr#chBi|U» « HfU 50,0W 
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UITNQDI6H6 BIJEENKDHST 



DatiM I zaterdag 21 M(¥)RT 1987 
Ukaisi : BeMenschapshuis 'De Zes Gehuchten" 

Papenvoort 10 te Geldrop <bij Eindhoven) 



ENTREEPRIJS: FL 10, « 



rn/ MISS li- 



vanaf snelneg E3 Ein dhoven * Venlo 
fifslag^Gildrop^ij Golden Tulipliotel. 
Bij eerste veH<eerslicht richting cen- 
trtM linksaf slaan (Eftopad). Bij krui- 
sinq na ca 800 linksaf slaan (Hooq 
Geldrop). Oeze mq blij^ivolgen tot 



X 



- vanuit rondweg Eindhoven 
fffslag Geiarop BijTJffFshoHroo* (Eind- 
hovense Neg). Meg volgen tot tueede 
verkeerslicht voor spoomegviadukt. 
Rechtsaf slaan en aeest rechtse Meg 
inslaan (Papenvoort). Oeze Meg blijven 
volgen tot gebouM mm imAt mm IMer- 
zijde. 

- vanuit Nuenen - Heltond 
IfTGeldrop ricfitingTIndhoven. Bii 
le verkeerslicht voorfoij spoorviadukt 
linksaf (voorsorteren). Verder als bij 
route vanuit rondMeg Eindhoven. 



per trein 



9t opt rein Eindhoven Ueert 
In BelflroplireRrna uitgang station 
links voelgangerstunnel door (Toumooi- 
veld), yeg oversteken en rechtsaf gaan. 
Eerste laan links (Hertogenlaan). Na 
bocht eerste straat rechts (Gildestr. ) 
Eerste straat links (Diepenvaart). Ge- 
bouM aan einde links (naast kerfc van 
Zesgehuchten). 



Lunchpakket zelf i 
Cmisiiipties tegen betaling. 



Pfogranis 



09.30 Zaal open «et koffie 
10.15 Opening door de voorzitter 
10.30 Voordracht Gert van Opbroek 

... Van 8502 naar Gxxxx 
11.30 FORIM 
12.00 Lunchpauze 
13.00 MARKT 

13.15 INFORMEa GEDEaiE 

In dit deel kunnen alle leden hun 2elf 
ontMikkelde hardware en software 
deftonstreren. 

Het illegaal gebruik en het kopieeren 
van software Maarop enige voni van 
rechten rusten. ook die van de club, 
is ten strengste verboden! 
BRENG UN EIKN SYSTBEM MEE !!! 
Het aanbieden van overbodige spullii/ 
is op eigen tafel(s) te regelen. 



De red^ktie roept eenieder op via de radio 
oifitvangen Basicode pngmmr m in t# i^ren. 

Geef U bij de redaktie i^mmf het iiaken van 
illimtratiesi vertalingen nair het engeU, 
of illiKitratieve tikeningen. 




MSEZEMS 
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EIB 5 □ 



KIN GEBRUIKERS CLUB NEDERUM) JflMiSTllKKEN 1966 



flicnvn 



Inventaris 
Voorraden 

Te ontvangen posten 
Gcldiiddilen 



mesivA 



19K 


1917 


3410 


5460 




28? 




iiSio 







Vrije reserve 

Reservering 6e uitgave DE 6S02 KENNER 
UAiruitontvangen contribtitie 
ll bttaltn poften 



ilTEN 



Contributie 

Opbrengst advertent ie DE 6502 KENNER 
Verkoop loise edities DE 6502 KENNER 
Verkoop caisettes en aanuals 
Opbrengit elabbijiinkoMten 
Rente Diikffiiift 
MM 

Btveriiii, Oti. dirtittet 



U8TEN 



Drukkosten DE 6S02 KENNER 
Verzendkosten 
Redaktiekosten 
Bettuurskoiten 



19833 
n.v.t. 
12130 
221 



14938 
n. v.t. 
6795 



17662 
0 

1204 
1143 
721 
501 
765 
42 



27115 225SB 



18353 
900 

1206 
365 

1101 
534 



Opmaakt door: 
J.r. Van Sprang 
Peimingaeester. 



13553 
1061 
2867 
1466 
8B 



11250 
1114 
1180 
1970 
2528 
2490 



EC6SK - CPU BODRD 



By 8 Bemd Dau, Gertany 

Ny fiSK eat not working correctly at 4I«IH2 if the sloiHoim 
iiitch Has connected (not sMitched but lust connected). I 
lib changed the 74F74 Mith a nen 74LS74 ... that has no 
iffiNH. I changed it Mith a 7474 and froa now on the board 
it Wifking alnght. But if the Eproa is addressed, and the 
ilow-doiin If putting on by the diode, the EC is going to 
Nimm. Well, I have changed the 74F04 and the 74F00 with 
i 7404 and 7400 and frot now on the board is runnifig and 



Met laar 1986 is voor onze club het jaar van de aKtivitei- 
ten geweest. Dat is het beeld dat blijft hangen. De EC6S. 
alias reiCPUS, alias SflWON, zelfbouwprojekt van het 
tiidschrift Elektuur, was al eerder geboren, aaar groeide 
vooral tot een voor de redaktie interessante coaputer door 
drie ledens Narc Lachaert uit Belqi§, Leif Rasaussen uit 
DeneMrken en Coen Boltjes uit Delft. Er zijn er natuur- 
liik veel aeer, en ook die zou ik willen noeften, aaar dat 
wordt aoeilijk aet al zoveel plaatsgebrek. De club werd 
door OCTOPUS ook voor de vraag gesteld of we iets kunnen 
doen aet Z80. In principe is dat technisch geen enkel 
probleea. De redaktie heeft de Z80 ook in de APPLE zitten. 
Voordat je je echter blind staart op toeters en bellen m 
plaats van op toepassing, aoet je je afvragen of Z80 wel 
zo spectaculair is. «n liikt het dat de Z80 door kreten 
als CP/M, Wordstar en DBASk op een wereldwonder is gaan 
lijken, iets heel spectaculairs. Nu kan niet ontkent wor- 
den dat het handige prograaaa's zijn als je er perse op 
gebrand bent. Itet een asseabler prograaaeren in Z60 is een 
ding, aet een asseabler qoed prograaaeren is een tweede: 
de instruktieset van de ZflO is zo oavanorijk dat je het 
aet de grootste aoeite kunt overzien net snel even iets 
prograaaeren, ik bedoel aet kwaliteit, is weggelegd voor 
de doorgewinterde prograaaeurs. Hat aoet een oeaiddelde 
hobbyist nou eigenhjk aet DBflSE, vraag leje af. Je hebt 
er al gauw een Rarddisk bij nodig. Net 80 Kbyte geforaat- 
teerd op je floppy koa je dan niet zo heel erg ver. En als 
ik naar de prograaaa's in z'n algeaeenheid kijk, dan kan 
ik niet anders dan zeggenJ alles koa ik in de wereld van 
de 6XXXX evenzo tegen. ^ ^ 

Oadat in het buitenland D0S65 ook in gebruik is, hebben 
een aantal leden zich extra ingespannen oa de aanuals te 
vertalen. Een enora karwei, een enorae solidariteit, dat 
ook terug te vinden is in de vertalingen van heel veel 
andere zaken. Tientallen leden zijn eraee bezia. Het on- 
dersteunt onze club in de pogiiigiii tldtfi kffimii tt ver- 
werven en uit te wisselen. 

In 1986 verscheen onze naaa in diverse binnen- en buiten- 
landse gedrukten. We hebben internationaal de aandacht 
getrokken. Elektor Electronics in Engeland Elektor Portu- 
lal, RUN, ftcorn Users, het zijn er slechts een paar. Ook 
.okale couranten, en Het Vrije Volk. We hebben nog een 
artikel in de Helastedter Bild tegoed door een lid zelf 
geschreven. Net betrekking tot de toeloop van buitenlandse 
leden in 1986 wil ik opaerken dat de blijvers daarvan zich 
beijveren in het vinden van nieuwe leden en er al in 
gesiaagd zijn dat in nieuwe lidaaatschaopen waar te aaken. 
Het aooiste voorbeeld vond ik wel van Fred Behringer uit 
Nflnchen. Hij plaatste zijn artikel C-16 naar 512 K in ons 
deceabemuaaer. Dat kondiade hij tevoren al aan in diverse 
lezersrubrieken van verscnillende coaputerbladen. Gevolgs 
een heleboel aanvragen oa inforaatie over onze club. Ge- 
volg daarvans nieuwe leden. Een daarvan zorgt aeteen al 
voor eennieuw ia, nag irWT lijii lidaaatichap officieel 
is ingegaan. . , ^ . ^ 

Het idee van Karel Odon oa aodeas van de leden m te 
. schakelen heeft nu vaste voraen aangenoaen en de aedewer- 
king breidt zich uit. Onze naaa is nu in diveMIMMHik* 
en te vinden. Nieuwe ide#en zijn dus welkoa. 
Een oud, en eerder aislukt idee, krijgt in 1986 plotseling 
wel gestalte: kontaktpersonen in qeaeenten in binnen- en 
buitenland. Sooedio zullen zii in de geaeentegidsen en de 
6ele Bids veraeld ziin. Ook hierdoor krijgen we er nieuwe 
leden bij, terwi jl het op plaatielijk nivo IH aiMinge 
kontakten kan leiden. 

In 1985 schreven 61 nieuwe leden in, in 1986 waren dat er 
109. Het is het scala aan aktiviteiten en aedewerking 
daarin dat het aogelijk aaakt zulke successen te bereiken. 
Alien die dit rechtstreeks aangaans bedankt, juUie hebben 
applaus verdient. 

Een 1987 dat zo'n inzet en enthousiasae ontioet kan nooit 
•eer stuk. ^ 

van Pelt. 



FORTH SCREBKOPV 

SystM t Elektor's ECCS 

Author : tern 0au, St. Barbara Str. 17, 

IK-3333 Baddenttfliit 

H-6erMny. 

^■i? P,'^'*Mr-V^J}.JS:iF^^ ^'^ ' " '"ly "'He 

wth tlefctor's EC-65 FORTH Disk 19 ( 80 tracki full screen ). The 
Word Copy-A}C Mist have 2 words on stack } source screen destina- 
tion screen < 

It is very easy to extend the Word to copy a nuaber of scrvma I 

« COPy-flLL 57 11 00 I I COWf-fl)C LOOP ; 
( end iiegin 2 tiaes the para* for COpy-^C ) 

i COPy-flLL-MITH-OFFSET 57 11 DO I I 99 ♦ COW-WC LOOP • 
( 11 source » 100 destination 

57 source > ISC destionaton ) 

SCM 134 

0 cr. 'COPY UTILITIES* CR." siaply enter scr A scr C cr 

. copyw»c enptyWrs sSSS te^olgp"*"-" " 

1 FORTH ST«?!r.*S^Al?1!!gffJSiV*^" ~"' " 
5 ' 60 2754* DOSI ! fOOS ' GO 27S1' DOSI ! lOOS FORTH ; 

7 I COPV-«)B EMPTY-BUFFERS SIMP BLOCK DROP 

5 — . • ' IJWWTE STRING » SE B» 0OS$ ! 'DOS FLUSH 

9 FORTH STRING ' SE fl« DOS$ ! !DOS • «» run" 

I? V^' ^ \^ 2761' DOei ! >00S FflRIH 1 

11 ( the 2 ttaes go statcMnt is to unload head ) 

12 :S 

13 ' 
U 

15 



TEKOOP 

0CT0PUS65 bestaande uit! CPlHaart, 56K RflN-kaart, FDU-kaart, 
cassette-interfacekaart + software, keyboard, prof, voeding alle 
spanniraen, het oeheel ondergebracfat in prof, bedrijfskast? ter- 
tinal type op wiclen, dus gcen tafelaodel, werkend te zien zon- 
*r drives en iystMasoftittrc. PrijsJ Hfl. 650,-. 

CONNQDORE 601 PRINTER t.e. a. b. 
Inlichtingen bij Peter van Klink 
Tel. thuis: 070 - £79289 
Tel. werk: 070 - 792805 



BRIEF MM DE REOflKTIE 

i''^**''-,'** oorspronkelijke systeeasoftware van aim JUNIOR ver«»> 
derd. Zo zit bi iv. de basisao-nitor en videosortware in Eprw 
vanaf adres $F2C0. Ik ben nu bezig de cassetteroutines van Ad 
Brouwer uit edities 30 en 31 van D£ 6502 KENNER aan aijn systeea 
aan te pMien, doch dit wil niet zo best lukken. 
Vraagt Ml dcgene die deze cassetteroutines op z'n systeea heeft 
*■ iij in verbinding steilen? 
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! NOGNDALSs ELEKTUUR VDiHCMRT 

Deze kaart brenot kcimelijk kopzorg voor vele 
llfS^ ik tiaa lit ^^Opiirill^^ iif^r 

De CLK-ingang van dt £8^ bleek erg stor ing- 
oevoelig en de chip produceerde dan ver- 
keerde adresaen voor de karakters. Dit Merd 
veriiolpen door een neerstand van 470 Oh* 
mmjlm Ujn en plus te leogen, en ge- 
||3k lan it oitgang van IC2l (tussen pen 
i2 en 16): 

Oe registers van de 6845 kregen blijkbaar 
i^^Ji igiMN^ d|Ul binnen. naardoor er een 
mlMfd bciMfofMat uitrolde . Met het 
vemijderen van de buffer-IC 16 nerd het 
iets beter. Nisschien loet de adresdekoder 
MSB van een snellere type zijn; 
De 4 flipflops die de DEN en CUR-signalen 



3. 



•et 2 karaktertijden aoeten vertragen, bren- 

Kbij aij niet genoeg vertraging . naardoor 
venster en de cursor een plaats te ver 
mf linki keeen. Dit heb tk niet opgelest: 
lit &f ei in ftonitor is niet heleAaal 
ti krijgen, het 'golft" een beet- 
|IL alsof er een laaofreknente storing in 
tit. Nisschien ligt dit aan de aassa-verbin- 
dingen. Als lezers soortgelijke ervaringen 
heboen gehad of oplossingen neten. graag 
contact opneten eets 

Aiiitbo/, Ualdecklaan 19, Bussue, 021^ 



BRIEF VM ELEKIUW 



One lid Hill Cuijpers ontving van Elektuur de 
iededeling dat. naar aanleiding van zijn vraa 
de printen 86207 (65XXX-CPlHkaart) en 862 
(PSIO-RTC-kaart) weer in produktie zijn geno- 
Elektttor vemachtte de printen in lanuari 
Meer op voorraad te hebben. 



FroA our aeeber Bemd Dau, Gereany : 
For the Berean aeebers the very best book to 
starl nith FORIM is the book fm 

DATA BECKER 6ebH 
Neroningerstr. 30 
4000 Duesieldorf 

title t ' OAS TRAIiniiBBBUCH ly FOtTlif ^ 

iiiiiior I ' mmmi ' 



I tli book is also available in Coaputer-stores. 
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I NIEUHE UITZENDTIJDEN HOBBySCOQP 
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Uoensdag Radio 1 en Radio 2 : 19.02 - 19.30 uur 
Zondag Radio 5 s 22.40 - 23.00 uur 



I 



GRAPHICS IN A PPLESOFT 

By8 Hans Bosch, TNente Ibiiversity of Technology, The 
Netherlands* 

A eachine lanouage subroutine nhich carries out all the 
necessary functions to prepare a graph: scaling and plot- 
and plotting of the ftMeliMi to be 



ting of the axes. . _ 

presented. The text can be pul anyMheit^ le'^ittbrwtifie 

pet MMte or froe the user's 



4DRAW. The syntax and use of each of these coaaands Mill 
be described separately. 

^L^^lk^^. ^ ^2 KENNER 9(19B5»6(J)EC) 
Send dmm if HfL 30,« (eurochenue MM to U.L^Jm. 



re- I- 



9f$lmm pregraa by using a i^eiefit which starts with 



rf *»?n»»« * co«Mnd foUoNed by a reserved word, the 
token of it specifying the particular action to be taken. 
The kcyMordt alloNable so far are WLIN, HUN, tftDT and 



I m LISTER FOR THE CONNQDORE 64 
I 8y: RTFlFinien, 'Tfie'NetherlinSs. 

i Nachine language prograa to translate the graphical signs 
t in the print-coaaands into readable text. 
I This article was published in DE 6502 KENNER 9(1985)5(0KT) 
I Send cheque of Hfl. 14,50 (eufochegiie 5,00) to «.Lv.PWt. 
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pbttelecammumcaEie 



fideotex^programie for ^he Juiiior/Octofms 



by: Coen Boltjes 
Nw. Plantage 9 
2611 XH Delft 
The Netherlands 



tel: 

vidibus : 



015-136812 
400029830 



Translated by: Elja van der Veer 

After describing the hardware in issue A7 it is now 
time for the software. Although the intension is not to 
discuss the entire programme an introduction is 
presented with Prestel as standard. 

A videotex page consists of 24 lines of 40 characters. 
|p the uppermost and lowest lines are reserved for 
systeminformation, 880 characters remain for 
Information. In order to unambigiously detect the start 
of a new page "NULL, Clear Screen, CR, CR, CR" is send 
idH: header. The videotex system works by means of the 
page mode, whicfe m^^Si3 that the first line follows the 
last. This is » <^pi^t to forfliiibtanee the fido 
network . 

Each line is started in the so-called initial fliode.* 
This mode presents a character as follows: 
alfa-numerical white, black background, normal grafics, 
no flashing, normal height and not concealed. If a 
.green picture must be drawn over a number of lines, 
each line must be started with a change to grafical 
;,|l?een. As datatransport takes place with 7 bits (with 
even parity) the mode changes can not be coded with one 
character. Therefore this takes place as escape 
sequence. After receiving the escape character ($1B) 
the next sign is interpreted as display attribute which 
results in a mode change. In general the two characters 
result in printing one space. 

Examining the videotex code tabel we can differentiate 

4 groups of characters: 

Columns 0 and 1 contain the control characterset CO; 
Columns 2, 3, 4, 5, 6 and 7 contain the alfa-numerical 
set GO; 

Columns 2a, 3a, 5a and 6a contain the mosaic character 
set 1*1 

Columns 4b and 5b contain the display attributes 
control code set CI. 

Sofar the description of the Prestel Standard, For 
l^p^s informatiii^ iier refer to the liter«ti^rfe 

Xm l^^-^'^rogvamme a large number of commands have been 
iifiiaipnted. These can be called with CTRL-keys. Normal 
Tksfm €Bn not be used as they have to be send to the 
connected videotex computer. The commands, which are 
described below, uses three infornftitibn StrUctttt^es 
which are: Screen, Page and File. 

^si^n is defined ms"^ihe^ information visible on the 
monitor. 

A page is the information in the page buffer, which is 
in general all information /eceived after the last Form 
Feed. 

A file contains one or more pages seperated by one ore 
more FF's. The format of the file is the standard 
OHIO-format, and ends with a $00 m end of file mark. 

The available conywands are: 



''A)cce«8 



*B)uffer 

*I)>os 

*l)Tase 

*G)et 

*H)elp 
"Dnit 

'^K)ey 



•L)ist 



-sends your viditel access- and code number. 

Before assembling these codes must* ISI' tolilC** 

ted behind the label CODE, 
-empties the page buffer. This command is 

needed only if the header is lacking* 
-passes a DOS-Command, 
-erases the screen. 

-reads the next page from the file and lists 
it. The readpointer is adjusted. 

-presents a list of the available commands. 

-sets the page readpointer to the beginning 
of the file. 

-reads the value of the key to be depressed 
next, and sends it to the connected computer, 
also when it it concerns a.CTRL-key. This is 
used for databanks fhich mtm ••almost standard'*. 

-lists the page on the screen. 



"N)ew 
•?)rint 

•Q)uit 

*R)eveal 
"S)ave 



*V)idibus 



-creates a new file, replacing the old one. 
-prints a page on a printer. For an impleme- 

tation see issue 47. 
-leaves the programme. Tfee retttrn address iSf-v 

pulled from the stack, 
-list the page with the concealed information, 
-saves the page in the file, locating it in the 
end of the file. 
*T)erminal -transfers to the terminal protocol, with only 
''Q)uit and *V)ideotex as commands. The ttser 
must take care of the size of the text. 
LP's are ignored, and CR's are send as #. 
-saves and sends a character string. 
If ''V is followed by a characterstring , a 
string is defined, (ending with CR, 16 charac- 
ters max.) If *V is followed by CR the defined 
string is send to the computer. This command 
can be used for temporarily storing clSiaS^saiir- 
bers in message systems. 
*Y) enables and disables the paritycheck on recei- 

. ^ ving charackters. A wrong parity will result 

in printing a blockcharacter . ' ' 

*X) sends the cancel character. 

A download programme is to be develloped. 

As videotex uses # for closing down a command, the CR 
key is changed into #. For the same reason it is 
practical to reserve a key for sending *. In this 
programme this is *Z. Note that the videotex code for # 
deviates from the ASCII code, (see code tabel) 

Although the programme with the adjusted hardware can 
very well be used as a videotex-terminal, it is 
impossible to support the entire standard. Below you 
will find a list of what is not possible. 
-The programme works without any color. If the 
background color is other than black the character is 
inverted. Color information is, by the way, recorded. 
-The hardware doesnot support double height. Characters 
unther a line with double height are represented as 
spaces, as is prescribed. 

-The hardware doesnot support seperated grafics. These 
are represented as normal grafical characters. 
-The programme writes a line only once. If after 
writing a line this line must be changed, it is 
possible that this chemge has not the right effect. In 
practice this is no serious drawba^^ ' 

As the hardware used is not normally present, and 
consequently differt configurations may be used, 
software dependent from the computer is described 
below. In the listing two parts have been described ■ 
twice. If the part which is not relevant is left out, 
the software can be used with all configurations. Take 
care that the I/O addresses agree witH the addresses in 
your computer. 

INIKB -initiates the keyboard I/O, in general this has 

already taken place. 
INIMOD -initiates the modem I/O and the buf f erparameters. 

A received character must cause an IRQ. 
READMO -Is the IRQ routine. It reads the character of the 

modemACIA and inserts it into the variable input 

buffer (MODBUF). It also take care of the 

character flash. 
GETMOD -reads a character from MODBUF. If the buffer is 

not empty, it ends with the character in AHOLD 

and C=0, else it ends with C=l. 
GETKB -reads a character from the keyboard. If a key 

was depressed, it ends with the key in AHOLD and 

C=0, else it ends with C=l 
PUTMOD -sends AHOLD trough the modemACIA. 

When the programme is started for the first time a 
DOS-error will follow, l^iis is the result of loading 
the file VIDIWE which is not yet present. In this file 
telephone numbers or the velcome*page of viditel can be ' , 
put. I 



10 
20 
30 

m 

50 

60 2A84= 
70 2363= 
80 00E1= 
90 2300» 
100 2311- 
110 
120 
130 

140 F000« 
150 F32F- 
160 F0E7- 
170 F0A8- 
IBO 
190 
200 

210 E7CB« 
220 006C= 
230 E800= 
240 E140= 
250 E7CD= 
260 E7CF= 
270 E7D1= 
280 E7D3= 
290 E7D5= 
300 E7D7= 
310 E7D8« 
320 E7DA- 
330 E7I3i- 
340 E7DD>* 
350 E7DE- 
360 E7E1- 
370 
380 
390 

400 E100= 
410 E101= 
420 E104= 
430 E106= 
440 E10B= 
450 E10D= 
460 E10E« 
470 

480 E400 

490 

500 

510 E400- 

520 E401= 
530 £402= 
540 E403= 
550 E404= 
560 E405= 
570 E406= 
580 E407= 
590 E4Q8- 
600 

610 E409« 
620 

630 E40A^ 

m ' ' 
650 

670 mmm 
680 mmm 

690 E411= 
700 E412= 
710 E414= 
720 E415= 
730 E416= 
740 E417= 
750 E418= 
760 E419» 
770 E41A« 
780 E42A« 
790 E42B« 
800 E42C« 
810 E42D« 
820 

830 OOFE= 

840 3A79= 
850 3A7B= 
860 1800= 
870 007F* 




Si^il l, 6 86-09-27 
' J^. 86-12-03 

•EXTERNAL DOS ^^TU^/VARIABLES 



XQDOSC«$2A84 

AHOLD =$2363 
D0SBUF=$00E1 
HIMEM =$2300 
OOTO -p311 



;DOS EXECUTIE ROUTINE 

; COMMAND VECTOR 
; HIGHEST RAM ADDRESS 
;OUTPUT VECTOR 1 



' liOT^JAL CXWBfm IffiPENDEND ROUTINES 



VIDEO =$F000 
RESET =$F32F 
CRLDN =$F0E7 
CRLUP »$F0A8 



PRINT AHOLD ON SCREEN 
($F330) INIT CRTC 
($F0B1) CURR LINE DOWN 
($FOFO) CURR LINE UP 



; EXTERNAL COMPUTER DEPENDEND VARIABEIJS 



IRQVEC«$E7CB 

RAMPTR=$006C 
VIDRAM=$E800 
CRTC =$E140 
FLN =$E7CD 
CLN =FLN+2 
LLN =CLN+2 
SCRPTR=LLN+2 
CURS0R=SCRPTR+2 
INLINE=CURS0R+2 
C0LUMN=INLINE+1 
TEMC0L«C0LUMN+2 
RAMBEG«TEMC0L+1 
CHAPLN»RAMBEG+2 
. «CHAPLN+1 
Tl^ -LPSCR+3 



;($FA7E) 

;($D000) 
;($D800) 
;($EFCO) 



SLAVE SCREEN POINTEER 
CURRENT CURSOR 
IN LINE OF WINDOW 
CURRENT COLOM 
SLAVE COLUMN 
START REFRESH RAM 
#CHARACTERS/LINE 
ILINES/SCREEN 
($EFDC) CRT 



COMPUTER DEPENDEND I/O DEVICES *** 



VABADR=$E100 
VAPAD =VABADR+1 
VATIC =VABADR+4 
VATIL =VABADR+6 
VAACR =VABADR+$OB 
VAIFR =VABADR+$OD 
VAIER »VABADR+$OE 

*-$E400 

•INTERNAL VIDEOTEX 
GRAFLG-* 
SEPFLG-*+l 
GRAH0C«*+2 

FLAFLG=*+3 

C0NFLG=-+4 

C0LCHA=*+5 

C0LBAC=*+6 ■ 

HEIFLG=*+7 

HEIGHC-*+8 

REVFLG«*+9 

ESCFLG»*+10 

Igr. «*4-ll 

' mf «*+i3 

XHOLD =*+15 
SHOLD =*+16 
LASTCH=*+17 
PRTCNT=*^-18 
MCNT =*+20 
MROFF =*+21 
MWOFF =*+22 
PARCHK=*+23 
VIBANK=*+24 
TIMCNT=*+25 
NUMBER=*+26 
SAVEA =*+42 
SAVEX =*+43 
SAVEY «*+44 
M0DBUF»*+45 
» 

PRTPNT«$OOFE 
SOF «$3A79 
EOF «$3A7B 
IB «$1800 
^ ^ *$7F 



(F800) VIA BASE ADDRESS 

PORT A 

TIMER 1 COUNTER 
TIMER 1 LATCH 
AUX CONTROL REG. 
INT. FUG REGISTER 
INT. ENABLE REGISTER 



CONTROLE BYTES 
;0-NORMAL <>0«GRAFIC 
;0«NOT SEPERATED 
;0»NORMAL 
;0«NOT FLASHING 
;FF«NORMAL 00=CONCEALED 
; COLOR CHARACTER 
; COLOR BACKGROUND 
;0=NORMAL HEIGHT 
;>0 THIS LINE DUBBLE 
;<0 PREVIOUS LINE DOUBLE 
;0=N0RMAL PRINT 
;<>0 DISABLE CONG. PRINT 



|§P®.,ifcifAGE POINTER 

iWt W mm pointer 

;SAVE FOR X 

;SAVE FOR SP 

;LAST PRINTED CHARACTER 

;# CHARACTERS TO BE PRINT 

; MODEM INPUT COUNTER 

; MODEM READ OFFSET 

; MODEM WRITE OFF 

; PARITY CHECK BYTE 

;TEMP FOR VIDEO PAGE 

; SOFTWARE TIMER 

;VIDIBUS BUFFER 

;A TEMP 

;X TEMP 

;Y TEMP 

; MODEM INPUT BUFFER 

; PRINT POINTER 
; START OF FILE POINTER 
;END OF FILE POINTER 
; INPUT BUFFER AREA 
; DELETE KEY 



880 0027= 
890 0017= 
900 OOOAo 
910 

920 • . 
930 
940 
950 

960 E1E0= 
970 E1E0= 
980 E1E0= 
990 E1E1= 
1000 E1C0= 
1010 

1020 0003= 
1030 0003= 
1040 0089= 
1050 0002= 
1060 0040= 
1070 
1080 
1090 

1100 E130- 
1110 E131- 
1120 E132- ' 
1130 E133- 
1140 E300* 
1150 

1160 0000= 
1170 0069= 
1180 0022= 
1190 0010« 
1200 0001« 
1210 
1220 
1230 

1240 0200 
1250 

1260 0200 78 
1270 0201 Di 

1280 0202 AD1123 
1290 0205 48 
1300 0206 AD1223 
1310 0209 48 
1320 020A BA 
1330 020B 8E10E4 
1340 020E A953 
1350 0210 8D1123 
1360 0213 A904 
1370 0215 8D1223 
1380 0218 20AC03 

1390 oiii ^^^m 

1400 021E Wm 
1410 0221 208702 
1420 0224 20FD05 

1430 0227 202206 
1440 022A 202E06 
1450 022D 202806 
1460 0230 207DOA 
1470 0233 20880A 
1480 0236 200D03 
1490 0239 ADCEE7 
1500 023C 8D18E4 
1510 023F A90A 
1520 0241 8D19E4 
1530 0244 A95F 
1540 0246 8D1AE4 
1510 0249 A901 
1560 024B 8D17E4 
1570 024E A966 
1580 0250 8D4F2A 
1590 0253 A902 
1600 0255 8D502A 
1610 0258 A27E 
1620 025A 86E1 
1630 025C A202 
1640 025E 86E2 
1650 0260 20842A 
1660 0263 203509 
1670 0266 58 
1680 0267 AE10E4 
1690 026A 9A 
1700 026B 202103 
4710 026E 9003 
lia© 0270 20B907 
I7ii 0273 2^03 



VDTCPL=39 
VDTLPS=23 



#VIDIOTEX CHARACTERS/LINE 
#VIDIOTEX LINES/SCREEN 



*** COWWi^ DEPENDEND DEFE3fIf|0NS *** 
^WrriONS FOR 6850 MODEM ACIA *** 



M0ACTR=$E1E0 
MOASR =MOACTR 

M0ACMR=M0ACTR 
MOADR =M0ACTR+1 
M0BAUD=$E1C0 

iNIPA0=$03 
INIPA1=$03 
INIPA2=%10001001 
SENMAS=%00000010 
PARMAS=%0 1000000 



;M0Dei ACIA GONTR. REG 

; DUMMY REGISTER 
; MODEM ACIA DATA REG 
; MODEM BAUDRATE SELECTOR 

;BAUDRATE SELECTION 
; DUMMY VALUE 
;ACIA INITIALISATION 
;SEND REGISTER FREE 
; PARITY ERROR 



*** DEFENITIONS FOR 6551 MODEM ACIA 



MOADR =$E130 
MOASR =M0ADR+1 
MOACMR-MOADR+2 
MOACTR-MOADR+3 
M0BAUD«$E300 

iNIPAO=$00 

INIPA1=%01101001 

INIPA2=%00100010 

SENMAS=%00010000 

PARMAS-JSOOOOOOOl 



JMODEM ACIA DATA REG 

im ' - • 

; MODEM ACIA CONTR. REG 
;BAUDRATE SELECTOR 

; BAUDRATE 

;MODEM COMMAND REGISTER 
; MODEM CONTROL REGISMI 
;SEND REGISTER FREE " 
; PARITY ERROR 



*** END OF DECLARATIONS *** 
♦=$0200 

mm m. 

CO 

LDA OUTVl 

PHA 

LDA OUTVl+1 
PHA 
TSX 

STX SHOLD 
LDA #D0SPRT-1 
STA OUTVl 
LDA #D0SPRT-l/256 
STA OUTVl+1 ;SET NEW OUTVEGTOR 
INITAM JSR MOVCRT 

JSR iMkB 
JSR INIMOD 
JSR RESMDD 
JSR RESDH 
JSR RESIB 
JSR RESRVF 
JSR INISOF 
JSR INIEOF 
JSR INITIM 
LDA FLN+1 
STA VIBANK 
LDA #FLATIM 
STA TIMCNT 
LDA #$5F 
STA NUMBER 
LDA #PARMAS 
STA PARGHK 
LDA #DOSERR 
STA $2A4F . 
LDA #D0SERR/256 

STA $2A50 ;SET DOSERROR VECTOR 

LDX #INIC0M 
STX DOSBUF 
LDX #INIC0M/256 
STX DOSBUF+1 

JSR XQDOSC ; EXECUTE COMMAND 
JSR GETSCR ;GET SCREEN AND PRINT 
DOSERR CLI 

LDX SHOLD 
TXS 

VDTEL JSR GETKB 

BCC VDTELl 

JSR XQUSER 
VOTLl JSR GETMOD 

BCC VDTEL 



;SAVE STACK Wm 



; RESET THE VDU 
;INIT THE KEYBOARD 
;INIT THE MODEM ACIA 
; RESET MODES 
; NORMAL HEIGHT 
; RESET INPUTBUFFER 
; RESET REVEAL FUG 
; RESET SOF 
; RESET EOF 

; SELECT FIRST BANK 



RESET VIDIBUS NR 
ENABLE PARITY CHECK 



IT 



SET STACK BACK 
LOAD FROM KEYBOARD 
=>N0 CHARACTER 
EXECUTE USER COMMAND 
LOAD FROM MOD©! 
»>N0 CHARACTER 



D 



KElNJNlE f=? * 



1750 0278 ZmiO^ 
1760 027i 
1770 
1780 027E 4G 
1790 
1800 
1810 
1820 
1830 

1840 0287 A903 
1850 0289 8D31E1 

186© iiic^ mm 
mm mum 



jsR ME^ 



;EXECUTE COWAND 



;INIM0D INIT. THE MODEM I/O 

;IT ALSO INIT THE SYCLIC BUFFER PARAMETERS. 

; RECEIVING A CHARACTER WILL CAUSE AM BQ*.. 



1900 0296 
1910 0298 
1920 029B 
1930 029D 
1940 02 AO 
1950 02A2 
1960 02A5 
1970 02A7 
1980 02 AA 
1990 02AD 
2000 02B0 

mm ' 

2030 
2040 

2050 02B1 
.2060 02B2 
2070 02B3 
2080 02B4 
2090 02B7 
2100 02B9 
2110 02BC 
2120 02BE 
2130 02C1 
2140 02C3 
2150 02C5 
2160 02C8 
2170 02CB 
2180 020) 
2190 02CF 
tm 02D1 
2210 02D4 
2220 02D7 
2230 02DA 
2240 02DD 
2250 02DF 
2260 02E2 
2270 02E5 
2280 02E7 
2290 02E9 
2300 02EC 
2310 Q2EF 
2S20 02FI 



INIT THE mim 10 

RESET MODEM AXCIA 



SET SPEED 
PARAMETER 
SELECT 
PARAMETER 
INIT 



mm m no3 

§f A IfOASR 
LDA #INIPAO 
STA MOBAUD 
LDA #INIPA1 
11 STA MOACMR 

A922 LDA #INIPA2 

8D33E1 STA MOACTR 

A9B1 LDA #MOREAD 

8DCBE7 STA IRQVEC 

A902 LDA #MOREAD/256 

8DCCE7 STA IRQVEC+1 jINIT IRQVEC 

A900 LDA #$00 

8D14E4 STA MCNT 

8D15E4 STA MROFf 

8m6E4 STA liNM 

60 RTS 



;RiSRr INPUT PARAMETERS 



jMOREAD IS IRQ ROUTINE FOR READIIP 
;M0DEM ACIA AND T^ FLASH 



MOREAl 
MQREA2 



48 NOREAD 

8A 

48 

AD31E1 
1026 
2C17E4 
F007 
AD30E1 
A97F 
D003 
AD30E1 
AE14E4 
EOFF 
F03A 
297F 
AE16E4 
9D2DE4 
EE16E4 
EE14E4 
D02A 

AD04E1 TIMER 

CE19E4 

D022 

A90A 

8D19E4 

AD18E4 

4i04 



mm 

2350 
2360 

2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 



6if^ 
02F9 
02FC 

02FE 
0300 
0303 
0306 
0309 
030A 
030B 
030C 

030D 
030F 
0312 
0314 
0317 
031A 
031C 
031F 



8D41E1 

A20E 

A904 

8E40E1 

4D41E1 

8D41E1 

68 

AA 

68 

40 

A940 

8D0BE1 

A9FF 



TIMERl 



INITIM 



8D05E1 
A9C0 



60 



PHA 
TXA 

PHA 

LDA 
BPL 
BIT 
BEQ 
LDA 
LDA 
BNE 
LDA 
LDX 
CPX 
^Q 
AND 
LDX 
STA 
INC 
INC 
BNE 
LDA 
DEC 
BNE 
LDA 
STA 
LDA 
EOR 
STA 
LDX 
STX 
STA 
LDX 
LDA 
STX 
EOR 
STA 
FLA 
TAX 
PLA 

LDA #%01000000 
STA VAACR 
IDA #$FF 
STA VATIC 
STA VATlC+1 
LDA #%1 1000000 
STA VAIER 
RTS 



MOASR 
TIMER 
PARCHK 
MOREAl 
MOADR 
#$7F 
M0REA2 
MOADR 
MCNT 
#$FF 
TIMERl 
#$7F 
MWOFF 
MODBUF.X 
MWOFF 
MCNT 
TIMERl 
VATIC 
TIMCNT 
TIMERl 
#FLATIM 
TIMCNT 
VIBANK 



;SAVE A & X 
; RESET IRQ 
;=>N0 ACIA IRQ 

i=>NO PAR ERROR 
; CLEAR IRQ 
;LOAD BLOCK 
;w> ALWAYS 
;LOAD CHARACTER 



; STRIP 



; ADJUST BUF 
;=>ALWAYS 
; RESET IRQ 



; SWITCH VDU 5ANK 



;GET FLASH TIME 
; RESET PUSH TIME 
;LOAD OLD BANK 
#%000G0100 

VIBANK ;SET NEW BANK 
#12 
CRTC 

CRTC+1 
#14 

#%00000100 ••' ' 

CRTC .; ,r , ' 

CRTC+1 ". 
CRTC44 ; SWITCH GURSC» 



•SEmn" CONTINOUS 



;START TIMER 
;ia«ABLE tm 



0320 60 



ICETKB READS AN KEY. IT ENDS WITCH C-0 IF 
;N0 KEY. ELSE C=0 AND KEY IN AHOLD 

KEYBOARD ROUTINES FOR XTOPUS *** 

INIKB RTS ;INIT THE KEYBOARD 10 



2620 
2630 
2640 
2650 
2660 
^70 



2690 
2700 
2710 
2720 

2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
29QO 

mm 

3010 
3020 

3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 

urn 

3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3299 



0321 18 

0322 ADODEl 
0325 2902 
0327 F009 
0329 ADOlEl 
032C 297F 
032E 8D6323 

0331 38 

0332 60 



GETKB CLC ;C«1 KEY OO NO KEY 

LDA VAIFR ;VIA INTERRUPT FLAG 
AND 1X00000010 



E1D0= 
ElDl- 
E1F0» 

0333 A903 
0335 8DD0E1 
0338 A911 
033A 8DD0E1 
033D A933 
033F 8DF0E1 

0342 60 

0343 18 

0344 ADDOEl 
0347 2901 

0349 F0E7 
034B ADDlEl 
034E 297F 

0350 8D6323 

0353 38 

0354 60 





BEQ GETKBl 


;mmSSf lEY 




LDA VAPAD 


(^ARACTER 




AND #$7F 


; STRIP. PARITY 




STA AHOLD 






SEC 




OlTKBl 


RTS 




J*** KEYfiCtoflEr lOU^ FOR JUNItm *** 


KBACR = 


$E1D0 


;KEYB.ACIA CONTROL REG 


KBADR « 


•KBACR+1 


;ACIA DATA REGISTER 


IB»AUD-$E1F0 


; KEYBOARD BAUDR, SELECT 


INIKB 


LDA #$03 






STA KBACR 


; RESET ACIA 




LDA #$11 


tlBli A^ 




STA KBACR 




LDA #$33 




STA KBBAUD 


;1200 BD 




RTS 




GETKB 


CLC 


;C=.l KEY C«0 NO KEY 




LDA KBACR 


; KEYBOARD ACIA (X»fTR.REQ 




AND #%00000001 




BEQ GETKBl 


;=>N0 KEY 




LDA KBADR 


;GET CHARACTER 




AND #$7F 


; STRIP PARITY 




STA AHOLD 






SEC 




GETKBl 


RTS 





im^m m ^kmmm of the MODBtfr 

;1T mm WITH C^l IF NO CHARACTER, ELSE 
0M C-0 AND CHARACTER IN AHOLD 
;IF CHARACTER M Jim THEN THE INPirr?pF.ER 
•IS RESET (vl^ iaSS^) 



0355 18 

0356 AD14E4 
0359 F042 
035B AE15E4 
035E BD2DE4 
0361 CE14E4 
0364 EE15E4 
0367 8D6323 
036A C90C 
036C D006 



GETMOD 



mo 



0371 i3mn 

0374 ilSiil4^m!l01 
0377 8611 

0379 AE0EE4 
b37C 86FF 

037E A200 

0380 81FE 
0382 EE0DE4 
0385 D015 
0387 EE0EE4 
038A AE0EE4' 
038D E022 
038F DOOB 
0391 CE0EE4 

0394 48 

0395 202205 

mm m 
mm $mm^ 

039C 38 
039D 60 



GEIM02 
GETH03 



CLC 

LDA MCNT 
BEQ GETM03 
LDX MROFF 
LDA MODBUF.X 
DEC MCNT 
INC MROFF 
STA AHOLD 
CMP #$0C 
BNE GETMOl 
JSR RESIB 
LDA AHOLD 
LDX EOP 
STX PRTPNT 
LDX EOP+1 

STX PRTPNT+1 

LDX #$00 

STA ( PRTPNT, X) 

INC EOP 

BNE GETM02 

INC EOP+1 

LDX EOP+1 

CPX #$22 

BNE GETM02 

DEC EOP+1 

PHA 

JSR BELL 
PLA 

STA AIK)LD 

SEC 

RTS 



=>N0 MODEM INPUT 
MODEM READ OFFSET 

DEC MODEM COUNTER 

SAVE CHARACTER 

!»>N0 CLEAR SCREEN 
i RESET IlCTpMI 



;CHARACTE{t IN MQt 

;GET im BUFFER 
;«>BUFlil Sif IttI* 
jSAVE OiUp^ 



3330 
3340 

3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 



;PUTM0D smm' 



039E A910 
03A0 2D31E1 
03A3 F0F9 
03A5 AD6323 
03A8 8D30E1 
03AB 60 



PUTMOD 



LDA #SENMAS 
AND MOASR 
BEQ PUTMOD 
LDA AHOLD 
STA MOADR 
RTS 



TOtttimi^ACM 
;LOAD SEND MASK 
;->TRANSM. REG. FULL 
;TRANSMIT CMRAOTR 



•MOVCRT PUCES THE CRTTAB TO THE TABLE 



03AC A900 MOVCRT 
03AE 8DDBE7 
03B1 A9E8 
03B3 8DDCE7 



LDA #VIDRAM 
STA RAMBEG 
LDA #VIDRAM/256 
STA RAMBEG+1 



;SET START OF RAM 



;MQDEH-tlSCEIVI EXECUTION ROUTINE 



;LOAD CHARACTER 
;jrUSX FOR^S^ 



3A90 03B6 A211 LDX #$11 
3500 03B8 BD9F07 MOVTAB LDA CRTTAB.X 

3510 03BB 9DElEr'" STA TABLg,! 

3520 03BE CA DEX 

3530 03BF 10F7 BPL MOVTAB 

3540 03C1 A211 LDX #$11 

3550 03C3 BD9F07 LDA CRTTAB.X 

3560 03C6 8DDEE7 STA LPSCR 

3570 03<^ CA DEX 

35m 03CA mm07 LDA CRTTAB,X 
3590 03(31 31^DE7 ai0m , 

3600 03D0 60 "^' ^ * 

3610 ; 
3620 
3630 

3640 03D1 AD6323 XQDATA LDA AHOLD 

3650 03D4 297F AND #$7F 

3660 03D6 8D6323 STA AHOLD 

3670 03D9 C920 CMP #$20 

3680 03DB lOOE BPL XQDATB 

3690 03DD 200B06 JSR RESESC 

3700 03E0 OA ASL A 

3710 03Ei AA TAX 

3720 03E2 BD4007 JJJA imiM 

3730 03E5 48 mm 
3740 03E6 BD3I07 . , . LDA C0,X 

3750 03E9 48 PHA 

3760 03EA 60 RTS 
3770 03EB AE0AE4 XQDATB LDX ESCFLG 

3780 03EE F032 BEQ XQDATE 

3790 03F0 200B06 JSR RESESC 

3800 03F3 20F704 JSR CIPRT 

3810 03F6 AD6323 LDA AHOLD,'." 

3820 03F9 C93E CMP #'> 

3830 03FB F055 BEQ STARi;. .... 

3840 03FD C93F CMP #'? 

3850 03FF F052 BEQ STOP 

3860 0401 291F AND #%00011111 

3870 0403 4A I^; A 

3880 0404 4A LSR' A 

3890 0405 4A LSR A 

3900 0406 4A LSR A 

3910 0407 B004 BCS XQDATC 

3920 0409 20DD06 JSR COLOR 

3930 040C 60 RTS 
3940 040D 4A XQDATC LSR A 

3950 040E AD6323 LDA AHOLD 

3960 0411 B002 BCS XQDATD ; 

3970 0413 2907 AND #%00000111 
3980 0415 290F XQDATD AND #%00001111 
3990 0417 OA 
4000 0418 AA 
4010 0419 BD8007 
4020 041C 48 
4030 041D BD7F07 
4l;»40 mZQ 4S 

mmmn so 

4060 0422 AE00E4 I(pATE 

4070 0425 F015 

4080 0427 AD6323 

4090 042A C940 

4100 042C 3006 

4110 042E C960 

4120 0430 300A 

4130 0432 49FF 

4140 0434 299F XQDATF 

4150 0436 8D6323 

4160 0439 4C4E04 

Hm 043C C95F XQDATG 

Um 043E D005 

4190 mm m3 
4200 om mmis 

4210 04^ , XQmTH 

4220 04#l&0r BKK IQD] 

4230 0449 A980 LDA #$80 

4240 044B 8D6323 STA AHOLD 

4250 044E 206D04 XQDATI JSR PRINT 
4260 0451 60 ' RTS 
4270 , . ; . 

4280 0452 60 
4290 

4300 0453 $0 STOP RTS 
4310 
4320 

4330 0454 8D2AE4 DOSPRT STA SAVEA 
4340 0457 8E2BE4 STX SAVEX 

4350 045A 8C2CE4 STY SAVEY 



;#LINES/SCREEN 



iiauRAcrros/LiNi: . 



;=>N0 COMM. 
;N0 ESCFLG 
;ACCU*2 . 



;PUSH ROUTINE ADRES 
;AND EXECUTE THE ROUTlp 

•=>N0 ESC. COMMAND (CI) 
; RESET ESCAPE FLAG 
;PRINT/NOPRI 



;->N0 COLOR COMMAND 
;SET THE COLORS 



;RESTOR CQWIAND 
;=>COLUMN 5B 



;ACCU*2 



ASL A 
TAX 

LDA C1+1,X 
PHA 

LDA C1,X 
PHA 
RTS 

LDX GRAFLG 
BEQ XQDATG 
LDA AHOLD 
CMP #$40 
BMI XQDATF 
CMP #$60 
BMI XQDATG 
EOR #$FF 
AND #%10011111 
STA AHOLD 
JMP XQDATI 
CMP #$5F 

BNE XQDATH ;=>N0 # 

LDA r# 

STA AHOLD 



;PUSH ROUTINE ADRES 
; EXECUTE THE ROUTINE 

;«>NORMAL 
;LOAD GRAFIC CODE 

;=>2A & 3A CHARACTERS 



ii^m BLOCK 



ifi^T RTS 



; START Of tlbWNLOADER 

;END OF DOWNLOADER 



; DOWNLOAD ROUTINE NOT YET IMPELMENTED. 



t 



;SAVE REGISTERS'-; 



0\ 1^' 



; PRINTED 



TVPUT 



4360 045D 20D103 
4370 0460 AD2AE4 
4380 0463 8D6323 
4390 0466 AE2BE4 
4400 0469 AC2CE4 
4410 046C 60 
4420 
4430 
4440 
4450 
4460 
4470 
4480 

4490 046D AE08E4 PRINT 
4500 0470 301A 
4510 0472 AE04E4 

4520 0475 D005 

4530 0477 A920 

4540 0479 8D6323 

4550 047C AE06E4 PRINTl 

4560 047F F008 

4570 0481 AD6323'' ' ' ' 

4580 0484 4980 

4590 0486 8D6323 

4600 0489 209004 PRINT2 

4610 048C 204205 PR1NT3 

4620 048F 60 

4630 

4640 0490 18 
4650 0491 ADCFE7 
4660 0494 6DD8E7 

4670 0497 856C 
4680 0499 ADD0E7 
4690 049C 6900 
4700 049E 2907 
4710 04A0 6DDCE7 
4720 04A3 856D 
4730 04A5 0904 
4740 04A7 AA 
4750 04A8 AD6323 
4760 04AB AOOO 
4770 04AD 916C 
4780 04AF 8DHE4 
4790 04B2 866D 
4800 04B4 916C 
4810 04B6 AD031^ 
4820 04B9 F009 
4830 04BB AD06E4 
4840 04BE F002 
4850 04C0 A980 
4860 04C2 916C 
4870 04C4 60 
4880 
^890 
4900 

4910 04C5 08 
4920 04C6 78 

4930 mm 

4940 04C8 
mm 04CB 6DD8E7 
#66 04CE 8DD5E7 
4970 04D1 ADD0E7 
4980 04D4 6900 
4990 04D6 2907 
5000 04D8 8DD6E7 
5010 04DB A20E 
5020 04DD 8E40E1 
5030 04E0 AD41E1 
5040 04E3 2904 
5050 04E5 4DD6E7 
5060 04E8 8D41E1 
5070 04EB E8 
5080 04EC ADD5E7 
5090 04EF 8E40E1 
5100 04F2 8D41E1 
5110 04F5 28 
5120 04F6 60 
5130 ' 
5140 
5150 

5160 04F7 48 
5170 04F8 AE02E4 
5180 04FB FOOE 
5190 04FD AE00E4 
5200 0500 F009 
5210 0502 2908 
5220 0504 D005 



JSR XQDATA 
LDA SAVEA 
STA AHOLD 
LDX SAVEX 
LDY SAVET' ' 
RTS 



;PR1NT CHARACTER 



; PRINT PRINTS AHOLD ON THE SCREEN. WHILE 
; BACKGROUND IS NOT BUCK IJ REVERSE 
;IN A LINE AFTSI ' ' 



LDX HEIGHC 
BMI PRINT3 
LDX CONFLG 
BNE PRINT! 
LDA #$20 
STA AHOLD 
LDX COLBAC 
BEQ PRINT2 
LDA AHOLD 
EOR #$80 
STA AHOLD 
JSR TVPUT 
JSR HT 
RTS 



mto oae.'i 



«>PR1VI0US LINE 
->N0 CONC^L 



;=>BLACK BACKGROUND 

; REVERSE CHARACTER 

;PUT CHAR. ON SCREEN 
f CUESOR M€HT 



TVPUTl 



CLC 

mm 

STA RAMPTR 
LDA CLN+1 

ADC #$00 
AND #$07 
ADC RAMBEG+1 
STA RAMPTR+l 
ORA #%00000100 
TAX 

LDA AHOLD 
LDY #$00 
STA ( RAMPTR ),Y 
STA USTCH 
STX RAMPTR+1 
STA (RAMPTR), Y 
LDA FLAFLG 
BEQ TVPUT2 
LDA COLBAC 
BEQ TVPUTl 
LDA #$80 
STA (RAMPTR), .Y 



;COMPUTE LSB 

;ADD CARRY IF SET 
;$07FF IS MAX ADDRESS 



; IN X ^imm PAGE 



;SET FIRST PAGE 
;SET Li^^^^llpt^^il^ 

;SET SECOND PAGE 

;«>N0 FUSH 

;=>BLACK 




THE CURSOR 



;SAVE STATUS 
;N0 TIMER INTERRUPT 



; CURRENT LINE 



CLC 

LDA CLN 
ADC COLUMN 
STA CURSOR 
LDA CLN+1 
ADC #$00 
AND #$07 
STA CURSOR+1 
LDX #14 
STX CRTC 

LDA CRTC+1 ;GET OLD POSITION 

AND #%00000100 

EOR CURSOR+1 

STA CRTC+1 ;SET MSB 

INX ;X-15 

LDA CURSOR 

STX CRTC • ' 

STA CRTC+1 
PLP 
RTS 



; CURSOR REGISTER 



;SET MSB 

; RESTORE STATUS' 



; CIPRT IS THE TEST FOR THE ORAPrC-HOli) MODE 



CIPRT 



=>N0 HOLD GRAFIC 



PHA 

LDX GRAHOC 
BEQ ClPRTl 
LDX GRAFLG 
BEQ ClPRTl ;=>N0 GRAFIC MODE 
AND #%00001000 

BNE ClPRTl ;->N0 COLOR CHANGE 



iMMER 



5230 0506 
5240 0509 

5250 050B 
5260 050D 
5270 0510 
5280 0513 
5290 0514 
5300 0517 
5310 
5320 
5330 

5340 mXB 
5350 051B 

5370 mn 

5380 

5390 0522 
5400 0524 
5410 0527 
5420 052A 
5430 

5440 052B 
5450 052E 
5460 0530 
5470 0533 
5480 0536 
5490 0539 
5500 053B 
S510 053E 
5520 0541 
5530 

5540 0542 

5550 0545 
5560 0547 
5570 0549 
5580 054C 
5590 054F 
5600 0552 
5610 0554 
5620 0557 
5630 055A 
5640 

5650 055B 
5660 055E 
5670 0561 
56S0 0563 
5690 0565 
5700 0568 
5710 056B 
5720 056E 
5730 0570 
5740 0573 
5750 0576 
5760 0579 
5770 057C 
5780 057E 
5790 0581 
5800 0584 
5810 0587 
5820 058A 
5830 

5840 058B 
5850 058E 
5860 0591 
5870 0593 
5880 0596 
5890 0599 
5900 059B 
5910 059E 
5920 05A1 
5930 05A4 
5940 05A7 
5950 05A9 
5960 Q5Aa 
5970 05AF 
5^ D5B2 
5990 05B5 
6000 

6010 05B6 

6020 05B9 
6030 05BC 
6040 05BE 
6050 05C1 
6060 05C4 
6070 05C7 
6080 

mo 05CB 



AD11E4 LDA USTCH 

D002 BNE C1PRT2 

A920 ClPRTl LDA #$20 

8D6323 C1PRT2 STA AHOLD 

206D04 JSR PRINT 

68 PLA 

8D6323 STA AHOLD 

60 UTS 



•GET LAST CHAIACTER 



mm5 

202206 
202E06 
6t) 

A907 

8D6323 

2000FO 

60 

AED8E7 

F009 

CED8E7 

20C504 

4C4105 

A927 

8DD8E7 

208E05 

60 

AED8E7 

E027 

F009 

EED8E7 

20C504 

4C5A05 

A900 

8DD8E7 

205E05 

60 

204006 

AED7E7 

E017 

FOOB 

201106 

20E7F0 

EED7E7 

1014 

ADCDE7 

8DCFE7 

ADCEE7 

8DD0E7 

A900 

8DD7E7 

202206 

2X504 

20FD05 

60 

204006 

AED7E7 

F008 

20A8F0 

CED7E7 

1011 

ADD1E7 

8DCFE7 

ADD2E7 

8DD0E7 

A217 

8ED7E7 

wmm 

202206 
60 

206806 

AE09E4 

D003 

208C06 

20FD05 

202206 

60 



CO BXBCCTIOH ROOTUfES 



BELL 

BS 

BSl 

BS2 
t 

HT 
HTl 



HT2 

LF 
LFl 



LF2 



LF3 



VT 
VTl 



VT2 



FF 



FFl 



^m06 CR 



JSR 


RESMOD 




PFc;nH 










T DA 

LdJn 


#<4>W / 


STA 


A HOT n 


JSR 


VIDEO 


RTS 




LDX 


COLUMN 


BEQ 


BSl 


DEC 




T<sP 

JOt\ 


AD TINT 


TMP 




LDA 


ivwrcPL 


ox A 




JOJ\ 


VTl 
V X X 


IvxO 




THY 




CPX 


^VDTfPI 


BEQ 


HTl 


INC 


Vw>vyLjUi ill 


JSR 


AD JUST 


JMP 


HT2 


LDA 


#$00 


STA 


COLUMN 


JSR 


LPl 


RTS 




JSR 


TSTBG 


LDX 


INLINE 


CPX 


#VDTLPS 


BEQ 


LF2 


JSR 


TSTDH 


JSR 


CRT nN 


INC 


TNT TNF 


BPL 


LF3 


LDA 


FLN 


O 1 n 


n M 


T HA 


FLN+1 


STA 


CLN+1 


LDA 


#4; on 


STA 


TMT TNF 


JSR 


RFSDH 

£\J-iOJL/n 


JSR 


ADJUST 


JSR 


RESHOD 


RTS 




JSR 


TSTBG 


LDX 


INLINE 


BEQ 


VT2 


JSR 


CRLUP 


DEC 


INLINE 


BPL 


VT3 


LDA 


LLN 


STA 


CLN 


LDA 


LLN+1 


STA 


CLN+1 


LDX 


#VDTLPS 


STX 


INLINE 


JSR 


ADJUST 


JSR 


RESMOD 


JSR 


RESDH 


RTS 




JSR 


HOME 


LDX 


REVFLG 


BNE 


FFl 


JSR 


ERTEOS 


JSR 


RESMOD 


JSR 


RESDH 


w 


U>l'.JV. . 






JSR 


TSTBG 



; RESET DOUBLE HEKOT 
{RESET IKPUT l^IFFl?!? 



;->FIR^ COUM 
;SET Cia^ 

^OMt LI!fE UP 

I i'"" 

;«>LASf CiMM". 



;NEXT LIHE 



;TEST BACKGROUND 



->LAST LINE 
TEST HEIGHT 
ONE LINE DOWN, 

«>ALWAYS 



;FLN=CLN 
; FIRST LINE 

Inormal mm 



;->FIRST LINE 



->ALWAYS 



; RESET MOIES 
; RESET 



;->REVi|iL"«^B 

; RESET MODES 

•.RESET DOUBLE HEIGHT 

;TEST BAd^ROGilD 



6100 05CB 
6110 05CD 
6120 05D0 
6130 05D3 
6140 05D6 
6150 

6160 05D7 
6170 05D9 
6180 05DB 

6190 Qsm 
mm om 
6210 mm 

6220 05E5 

6230 

6240 05E6 
6250 05E9 
6260 05EC 
6270 

6280 05ED 
6290 05EF 

6310 

6320 05F3 
6330 05F6 
6340 05F9 
6350 05FC 
6360 
6370 
6380 

6390 05FD 

6400 05FF 
6410 0602 
6420 0605 
6430 0606 
6440 0608 
6450 060B 
6460 060D 
6470 06X0 
6480 

6490 0611 
6500 0614 
6510 0616 
6520 0618 
6530 061A 
6540 061C 
6550 061E 
6560 0621 
6570 

6580 0622 
6590 0624 
6600 0627 
6610 

6620 0628 
6630 062A 
6640 062D 
6650 

6660 062E 
6670 0630 
mo 0633 
6690 CNS36 
6700 0638 
6710 063B 
6720 063E 
6730 

6740 063F 
6750 

6760 0640 
6770 0643 
6780 0645 
6790 0647 
6800 064A 
6810 064D 
6820 064E 
6830 0650 
mo 0653 
6850 0656 
6860 0658 
6870 Q65IS 
6886 0651) 
6890 0660 
6900 0663 
6910 0664 
6920 0667 
6930 

6940 0668 
6950 066B 
6960 066E 



A900 
8DD8E7 
20C504 
20FD05 

60 

A900 
F002 
A920 



8D41E1 
60 

20CB05 
208006 
60 

A9FF 
8D0AE4 



206806 
20FD05 
202206 
60 



A207 

BDB107 

9D00E4 

CA 

10F7 

20D705 

A200 

8E0AE4 



AE08E4 

FOOB 

3004 

A2FF 

D002 

A200 

8E08E4 

60 

A200 

8E08E4 

60 

A200 

8E09E4 

60 

A900 

8D0BE4 

8D0DE4 

A918 

8D0CE4 

8D0EE4 

60 

60 

AD06E4 

F022 

A900 

8D03E4 

ADD8E7 

48 

A9A0 
8D632a 

mmm 

A227 
ECD8E7 

fom 

fflfeE7 

4C5306 

68 

8DD8E7 
60 

ADCDE7 
8DCFE7 
ADCEE7 



RETURN 


LDA 


#$00 






STA 


COLUMN 


: FIRST COLUMN 




JSR 


AD JUST 






JSR 


RESMOD 






RTS 






rURON 


LDA 


#$00 






BEQ 


SETCUR 




CUROF 


LDA 


#$20 




SETCUR 


LDX 


#$0A 






STX 


CRTC 






STA 








RTS 






CAN 


JSR 


RETURN 






JSR 


erteol 


•CLEAR LINE 




ifrs 




ESC 


LDA 


#$FF 






STA 


ESCFLG 


;SET ESCAPE FLAG 




RTS 






RS 


JSR 


HOME 






JSR 


RESMOD 


; RESET MODI 




JSR 


RESDH 


; RESET DOUILB ipiK 




RTS 







C5S 'EXECUTION m^wmmm:^ 



RESMOD 
RESMOl 



RESESC 



TSTDH 



TSTDHl 
TSTDH2 
TSTDH3 

RESDH 



RESRVF 



Ri^ 



NILL 
TSTBG 



TST8G1 



TSTBG2 
tSTB63 

HOME 



LDX 


#$07 




LDA 


RESTAB.X 




STA 


GRAFLG.X 




DEX 






BPL 


RESMOl 




JSR 


CURON 


; CURSOR ON 


LDX 


#$00 




STX 


ESCFLG 


;N0 CI COMMANDS 


RTS 






LDX 


HEIGHC 




BEQ 


TSTDH3 


;N0 DOUBLE HEIGH 


BMI 


TSTDHl 


\»>?WSim SOUBLE 


LDX 


#$FF 




BNE 


TSTDH2 




LDX 


#$00 




STX 


PIGHC 




Kxo 






LDX 


#$00 




STX 


HEIGHC 




RTS 






LDX 


#$00 




STX 


REVFLG 


; RESET REVEAL FUG 


RTS 






LDA 


#IB 


;SOP AND EOP 


STA 


SOP 


; ARE RESET TO 


STA 


EOP 




LDA 


#IB/256 




STA 


SOPHrl 




STA 


mm 




RTS 






RTS 






LDA 


COLBAC 




BEQ 


TSTBG3 


;»>BUCK BACKGROUND 


LDA 


#$00 




STA 


FLAFLG 


;NON PUSHING 


LDA 


COLUMN 




PHA 




jSAVE CURRENT CURSOR 


LDA 


#$A0 


; REVERSE SPACE 


STA 


AHOLD 




JSR 


TVPUT 


; PRINT Sl^^ 


LDX 


#VDTCPL 


;CHARACrai|/LlNE 


CPX 


COLUMN 


; usT msm 


BEQ 


TSTBG2 


;«>LINE Wm 


INC 


COLUMN 




JMP 


TSTBG 1 


;=>NEXT 


PLA 






STA 


COLUMN 


; RESTORE COLUMN 


RTS 






LDA 


FLN 




STA 


CLN 




LDA 







9 



6970 0671 

mm 0674 

$990 0676 
7000 0679 
7010 067C 
7020 067F 
7030 

70A0 0680 
7050 0683 
7060 0684 
7070 0687 
7080 0688 
7090 068B 
7100 

7110 068C 
7120 068F 

fmmm 
wmmm 

IIS 0694 
Tii^ 0697 

7180 wm 

7190 069C 

7200 069F 

7210 06A2 

7220 06A4 

7230 06A6 

7240 06A9 

7250 06AC 

7260 06AE 

7270 06B1 

7280 06B3 

7290 06B4 

wm wm 

7310 06B8 
732Q 06BB 
7330 06BC 
7340 06BF 
7350 06C0 
7360 06C3 
7370 06^^ 
7380 

7390 06C7 
7400 06C9 
7410 06CC 
7420 06CF 
7430 06D1 
7440 06D4 
7450 06D6 
7460 06D9 
7470 06DC 
7480 
7490 
7500 

7510 06DD 
7520 06DE 
7530 06E1 
7540 06E3 
7550 06E5 
7560 06E7 
7570 06E9 
7580 06EB 
7590 06EE 
7600 06F1 
7610 

7620 06F2 
7630 06F4 
1640 06F7 
7650 

7660 06F8 
7670 06FA 
7680 06FD 
7690 

7700 06FE 
7710 

7720 06FF 
7730 

7740 0700 
7750 0702 
7760 0705 
7770 

7780 0706 
7790 0708 
7800 070B 
7810 070E 
7820 

7830 070F 



8DD0E7 

A900 

8DD8E7 

8DD7E7 

20C504 

60 

ADD8E7 ERTEOL 
48 

20C706 
68 

8DD8E7 
60 

ADD8E7 ERTEOS 
48 

mm 

48 

ADCFE7 
48 

mmi 

48 

20G706 mmi 

ADD7E7 

C917 
FOOD 
20E7F0 
EED7E7 
A900 
8DD8E7 
F0E9 
68 

8DD0E7 
68 

8DCFE7 
68 

8DD7E7 
68 

8DD8E7 
20C504 



A920 ERLIN 
8D6323 

209004 ERLINl 
A227 
ECD8E7 
F006 
EED8E7 
4CCC06 
60 



STA CLN+1 
LDA #$00 
STA COLUMN 
STA INLINE 
JSR ADJUST 
RTS 

LDA COLUMN 
PHA 

JSR ERLIN 
PLA 

STA COLUMN 
RTS 



;CLN=FIRST LINE 



;aiSS0R HOME 



;SAVE CS^k^ CUR^ 



ERTE02 



LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
IM 

mk 

JSR 
LDA 
CMP 
BEQ 
JSR 
INC 
LDA 
STA 
BEQ 
PLA 
STA 
PLA 
STA 
PLA 
STA 
PU 
STA 
J^SK 
RTS 



COLUMN 
INLINE 

aN 

wm 

ERLIN 

INLINE 

#VDTLPS 

ERTE02 

CRLDN 

INLINE 

#$00 

COLUMN 

ERTEOl 

CLN+1 

CLN 

INLINE 



;SAVE CURSOR POSITION 



;=>SCREEN CLEM 
;LINE DOWN 



«>NEXT LINE 



;SET CURRENT LINE 



COLUMN ; RESET 
ADJUST 



POS. 



LDA #$20 
STA AHOLD 
JSR TVPUT 
LDX #VDTCPL 
CPX COLUMN 
BEQ ERLIN2 
INC COLUMN 
JMP ERUNl 



;SPACE 

; PRINT SPACE 
; CHARACTERS/LINE 
;LAST COLUMN 
;=>LINE DONE 

;»>NEXT 



CI EXECUTIN ROOCTIS *** 



=>ALWAYS 



4A 


COLOR 


LSR 


A 


AD6323 




LDA 


AHOLD 


B004 




BCS 


SEGRCO 


A200 


SEALCO 


LDX 


#$00 


F002 




BEQ 


COLORl 


A210 


SEGRCO 


LDX 


#$10 


2907 


COLORl 


AND 


#$07 


8D05E4 




STA 


COLCHA 


8E00E4 




STX 


GRAFLG 


60 




RTS 




A980 


FLASH 


LDA 


#$80 


8D03E4 




STA 


FLAFLG 


60 




RTS 




A200 


STEADY 


m 




8E03E4 




STX 




60 




RTS 


60 


ENDBOX 


RTS 




60 


STRBOX 


RTS 




A200 


NORHIG 


LDX 


#$00 


8E07E4 




STX 


HEIFM5 


60 




RTS 




A210 


DUBHIG 


LDX 


#$10 


8E07E4 




STX 


HEIFLG 


8E08E4 




STX 


HEIGHC 


60 




RTS 




AE09E4 CONDIS 


LDX 


iEVFLe 



COMPUTE COLOR 



SET MODE 



;SET PUSH FUG 



; RESET Ml0f\MM ' 



;SET DOUBLE HEIG 
;DOUBLE IN THIS LINE 



7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
7990 
8000 
8010 
8020 

wm 



0712 
0714 
0716 
0719 

071A 
071C 
071F 

0720 
0722 
0725 

0726 
0728 
072B 

072C 
072F 
P732 



D005 
A200 
8E04E4 

60 GONDII 

A200 hmm 

60 

A2FF GRASEP 

8E01E4 

60 

A200 BACKBL 

8E06E4 

60 

AE05E4 BACKNW 



8050 

8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
ilTO 
8180 
8190 
8200 
1210 
§220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 



0733 Aim 

0735 mom 

0738 60 

0739 A200 
073B 8E02E4 
073140 



073F 1705 

0741 mm 

0743 3E06 
0745 3106 
0747 3E06 



mo 

8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8600 
8610 
8620 
8630 
8640 
8650 
8660 
8670 
8680 
8690 
8700 



074B 

074D 
074F 
0751 
0753 
0755 
0757 
0759 
075B 
075D 

075F 

mm. 

07i3 
076^; 
0767 
0769 
076B 
076D 
076F 
0771 
0773 
0775 
0777 
0779 
077B 
077D 



077F 

0781 
0783 
0785 
0787 
0789 
078B 
078D 

078F 
0791 
0793 
0795 
0797 
0799 



3E06 

2105 
2A05 
4105 
5A05 
8A05 
B505 
C705 
3E06 
3E06 

3E06 

mm 
mi 



079D 



DAOS 
3E06 
3E06 

3E06 
E505 
3E06 
3E06 
EC05 
3E06 
3E06 
F205 
3E06 



F106 

F706 
FD06 
FE06 
FF06 
0507 
3E06 
3E06 

0E07 
1907 
1F07 
3E06 
2507 

mr 
mi 

3807 



GRAREL 





L.UINU1 i 


LDX 


#$00 


STX 


CONFLG 


RTS 




LDX 


#$GlO 


STX 


SEPFLG 


RTS 




m 


#$1? 


STX 


SEPFLG 


RTS 




LDX 


#$00 


STX 


COUAC 


RTS 




LDX 


COLCHA 


STX 




m 


LDX 


#$10 


STX 


GRAHOC 


RTS 




LDX 


#$00 


STX 


GRAHOC 


RTS 





;=>REVEAL MODE 
;SET CONCEAL MODE 



;SET lAC^i[G^t|]ip dOLOR 



;LOAD CHARACTER COLOR 



;SET GRAHOLD MODE 



; RESET HOLD MODE 



*** COMMAND JUMP TABLES *** 

CO IS THE CONTROL CHARACTER SET 



CO 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



NULL-1 

NILL-1 

NILL-1 

NILL-1 

NILL-1 

NILL-1 

NILL-1 

BELL-1 

BS-1 

HT-1 

LF-1 

VT-1 

FF-1 

CR-1 

NILL-1 

NILL-1 



START NEW FRAME 
$00 
$02 
$03 
$04 
$05 
$06 
$07 
$08 
$09 
$0A 
$0B 
$0C 
$0D 
$0E 
$0F 



HOMi;^ Ci£EAR 



.WORD NILL-1 
.WORD CURON-l 
.WORD NIO-l 
.WORD Nlli-l 
.WORD CUROF-1 
.WORD NILL-1 
.WORD NILL-1 
.WORD NILL-1 
.WORD CAN-1 
.WORD NILL-1 
.WORD NILL-1 
.WORD ESC-1 
.WORD NILL-1 
.WORD NILL-1 
.WORD RS-1 
.WORD NILL-1 



$10 

$11 CURSOR ON 

$12 

$13 

$14 CURSOR OFF 

$15 

$16 

$17 
$18 

$19 
$1A 
$1B 
$1C 
$1D 
$1E 
$1F 



CI IS 
COB^ Sit ' 



CI 



.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
•WORD 
.WORD 



^.ATTRIBUTE CONTROLE 
SEQUENCES) 

FLASH-1 : ; <■■'. 

STEADY- 1 ^ 

ENDBOX- 1 

STRBOX- 1 

NORHIG- 1 

DUBHIG-1 

NILL-1 

NILL-1 



CONDIS-1 

GRANOR-1 

GRASEP- 1 

NILL-1 

BACKBL-1 

MPW^l 



GRAREL-l 



;BUCK BACKGROUND 
;RELBAS£ GRAFXCS 



SOS 



lESTAB 



XQUSEA 
XQUSEB 



DOS 



8710 

8720 

8730 079F 80 
8730 07A0 28 
8740 07A5 18 
8750 07 AB 00 
8760 

8770 07B1 00 
8780 07B2 00 
8790 07B3 00 
8800 07B4 00 
8810 07B5 FF 
8820 07B6 07 
8830 07B7 00 
8840 07B8 00 
8850 ? 
8860 07B9 AD6323 XQUSER 
8870 07BC C920 
8880 07BE 300D 
8890 07C0 C923 
8900 07C2 D005 
8910 070k 
8920 07C^; illii3 

mm 07Ct mw3 

8950 07CD OA 
8960 07CE AA 
8970 07CF BDD80A 
8980 07D2 48 
8990 07D3 BDD70A 
9000 07D6 48 
9010 07D7 60 
9020 

9030 07D8 78 
9040 07D9 A93A 
9050 07DB 8D7A3A 
9060 07DE A97E 
9070 07E0 8D793A 
9080 07E3 38 

07E4 AD7B3A 
9100 07E7 ED793A 
9110 07EA AD7C3A 
9120 07ED ED7A3A 
^130 07F0 4A 
9140 07F1 4A 
9150 07F2 4A 
9160 07F3 18 
9170 07F4 6901 
9180 07F6 8D7D3A 
9190 07F9 207F08 
9200 07FC A93E 
9210 07FE 8D6323 
9220 0801 206D04 
9230 0804 209B2C 
9240 0807 A92E 
9250 0809 85E2 
9260 080B A91E 
9270 080D 85E1 
9280 080F 20842A 
9290 0812 58 

9300 ills ei 

9310 

9320 0814 18 
9330 0815 A917 
9340 0817 85FE 
9350 0819 E922 
9360 081B 8D12S4 
9370 081E A901 
9380 0820 iilf 
9390 0822 
9400^^P13E4 
1410 «7 20B00A 
9^0 082A 202103 
f430 082D 90FB 
9440 082F 207F08 
9450 0832 204208 
9460 0835 60 
9470 

9480 0836 A2FF 
9490 0838 8E09E4 
9500 083B 204208 
9510 083E 202806 
9520 0841 60 
9530 

9540 0842 20i80A 

9550 084S tmm 

9560 0848 60 



.mfe $18,|1C.$00,$08.$00,$09 
.BYTE $00,$00.$00.$00.40.$18 



.BYTE $00 
.BYTE $00 
.BYTE $00 
.BYTE $00 
.BYTE $FF 
.BYTE $07 
.BYTE $00 
.BYTE $00 



;ALFANUMERIC 
;NOT SEPERATE 
;N0 GRAFIC HOLD 
;N0 FLASHING 
;N0 CONCEALD PRINTING 
; WHITE CHARACTERS 



LDA AHOU) ;GET OlAi^CW? 

SSii ;.>eoNT80L omm 
CMP r # 

BNE XQUSEA 
LDA #$5F 
STA AHOLD 
JSR PUTMOD 
RTS 
ASL A 
TAX 

LDA COMVEC+1 
PHA 

LDA COMVECX 

im 



•.TRANSMIT CHARACTER 
;ACCU*2 



:LOAD . 



DOSEX 

HELP 



Sir 

IM #$3A 
StA SOF+1 

LDA #$7E 
STA SOF 
SEC 

LDA EOF 
SBC SOF 
LDA EOF+1 
SBC SOF+1 
LSR A 
LSR A 
LSR A 
CLC 

ADC #$01: 
STA E0F^2 
. JSR ERASE 
y)A #*> 

STA AHOLD 
JSR PRINT 
JSR $2C9B 
LDA #$2E 
STA SE2 
LDA #$1E 
STA $E1 
JSR XQDQSG 
CLI 
RTS 



ledMilJTE FILE LBMGTH 



; PRINT DOS-PROMT 
;FILL INPUTBUFFER 



; RESET BUFFER 



HELPl 



CLC 

LDA #HLPTXT 
STA PRTPNT 
SBC IHLPTXE 
STA PRTCNT 
LDA #HLPTXT/256 
STA PRTPNT+1 
SBC #HLPTXE/256 
STA PRTCNT+1 
JSR PRTSCR 
JSR GETKB 
BCC HELPl 
JSR ERASE 
JSR PITESP 
RTS 



;=>WAIT FOR KEY 
; CLEAR THE SCREEN , 
;PR1NT eUiREUT PAGE 



PU 
PU 

JSR 
LDA 
STA 
PLA 
STA 
PLA 
STA 
RTS 



REVEAL 



PRTCP 



LDX #$FF 
SIX HOTFLG 

JSI ItSSRVF 
RTS 

JSR COMPL 
JSR PRTSCR 
RTS 



;SET REVEAL FLAG 
•.REPRINT CURRENT PAGE 
.RESET REVEAL FLAG 

; COMPUTE 



9570 t 
9580 0849 68 (JJIT 
9590 084A 68 
9600 084B 20D705 
9610 084E A940 
9620 0^ 
9630 OSSS li 

9650 &m u 

9660 0858 BD1123 
9670 085B 60 

9680 ; 

9690 085C A918 CANCEL 
9700 085E DOOA 
9710 0860 A92A CHRINS 
9720 0862 D006 
9730 0864 A95F CRET 
9740 0866 D002 
9750 0868 A91B ESCAPE 
9760 086A 8D6323 TMGHR 
9770 086D 209E03 
9780 0870 60 
979Q ' 
m^ Wn A20Q . DUMCOD 
0S73 m>7m DUMCOE 
^^26 0876 206A68 
9830 0879 E8 
9840 087A EOOA 
9850 087G D0F5 
9860 087E .60 
9870 ? ^„ 

9880 087F 20F305 ERASE 
9890 0882 202806 
9900 0885 208006 
9910 0888 60 
9920. , 5 

9930 0889 202103 VIDIMJ 
9940 088C 90FB 
9950 088E AD6323 
9960 0891 C90D 
9970 0893 F051 
9980 0895 48 
9990 0896 20F305 READNR 
10000 0899 208B05 
10010 089C 208006 
10020 089F 68 
10030 08A0 8D6323 
10040 08A3 A200 
10050 08A5 F012 
10060 08A7 8E0FE4 READNl 
10070 08AA 202103 READN2 
10080 08AD 90fB 

10090 mM 

10100 0^ «56S23 

mm »5 C90D 

|©120 Cmi F027 
101.S0 08B9 C97F 
10140 08BB D012 
10150 08BD 202B05 
10160 08C0 AE0FE4 
10170 08C3 CA 
10180 08C4 30C3 
10190 08C6 8E0FE4 
10200 08C9 208006 
10210 08CC 4CAA08 
10220 08CF 9D1AE4 RIADNA 
10230 08D2 8E0FE4 
10240 08D5 206D04 
10250 08D8 AE0FE4 
10260 08DB E8 
10270 08DC EOiO 
10280 Q8DE 30C7 
10290 08EO A95F READM5 
10300 08E2 9D1AE4 
10310 08E5 60 
10320 08E6 A200 SENDNR 
10330 08E8 BD1AE4 
10340 08EB C95F 
10350 08ED F014 
10360 08EF 8D6323 SENDNl 
10370 08F2 209E03 
10380 08F5 E8 
10390 08F6 BD1AE4 
10400 08F9 C95F 
3^0410 08FB TXm , 
10420 08FD SliSB 
10430 0900 209E03 



CURON 

#$40 . 
VAIER ; RESET TIMER 

OUTVl+1 

OUTVl ; RESET OUTPUT VECTC» 



LDA #$18 
BNE TMCHR 
LDA #•* 
BNE TMCHR 
LDA #$5F 
BNE TMCHR 
LDA #$1B 
STA AHOLD 

jsE fwm 

RTS 

LDX #$00 
LDA CODE.X 

jss •mcuR 

INX 

CPX #10 
BNE DUMCOE 
RTS 



;->AlW® 
;SEND CHARACTER 



;TOANSJOT CHARACTER 
;«>CODE NOT FINISHED 



JSR RS » 

JSR RESRVF ; RESET REVEAL MODE 

m mm^ jclear screen 



JSR GETKB 
BCC VIDIBU 
LDA AHOLD 
CMP #$0D 

m 



;READ COMMAND 
;WAIT FOR KEY 



READN3 CMP 



JSR RS 
JSR VT 
JSR ERTEOL 
PLA 

STA AHOLD 
LDX #$00 
BEQ READN3 
STX XHOLD 

JSR GETKB 
BCC READN2 
LDX XHOLD 
LDA AHOLD 
CMP #$0D 
BEQ READN5 

#DEL 
BNE READN4 
JSR BS 
LDX XHOLD 
DEX 

BMI VIDIBU 
STX XHOLD 
JSR ERTEOL 
JMP READN2 
STA NUMBER. X 
STX XHOLD 
JSR PRINT 
LDX XHOLD 
INX 

CPX #$10 
BMI READNl 
LDA #$5F 
STA NUMBER, X 
RTS 

LDX #$00 
LDA NUMBER,X 
CMP #$5F 
BEQ SENDN2 
STA AHOLD 
JSR PUTMOD 
INX 

LDA NUMBER, X 
CMP #$5F 

BNE SENDNl 
STA AHOLD 
JSR PUTMOD 



;->SEND 
;SAVE A 
;HOffE 



;pmx'€M^fi^ 

;->ALWpS . 
.•>N0 'W 

;->UST 

i«>Not'pyiii 

; RESTORE POSOTCl 
;->TRY AGAIN 
LINE 



•PRINT NUMBER 
X 



=>BUFFER NOT FULL 

LOAD '# 

; CLOSE BUFFER 



jTiST END 

; «>N0 msm^, MTPBP 



;«>NOT UST 



11 



s-E 5 O e 



KEtvJMI 



10440 
10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
10610 
10620 
10630 
10640 

mm 

10670 
10680 
10690 
10700 
10710 
10720 
10730 
10740 
. 10750 
10760 
10770 

mm 
mm 

10800 
10810 
10820 
10830 

10840 
10850 
10860 
10870 
10880 
10890 
10900 
10910 
10920 
10930 
10940 

mm 
lom 

10970 
10980 

10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 



0903 60 smrni- rts 



0904 
0905 
0907 
0909 
090B 
090E 
0910 
0912 
0914 
0917 
091A 
091D 
091F 
0922 
0924 
0926 
0928 
092B 
092E 
0931 
0934 



18 mmjL 

A923 

85FE 

E938 

8D12E4 

A90D 

85FF 

E90D 

8D13E4 

20B00A 

202103 NEIVFIM 

90FB 

AD6323 

295F 

C959 

D006 

207DOA 

20880A 

207F08 NEWFIN 

204208 

60 



CLC 

LDA #NEWTXT 
STA PRTPNT 
SBC #NEWTXE 

STA PRTan* 

LDA #NEWTXT/256 
STA PRTPNT+1 
SBC #NEWTXE/2S6 
STA PKTCNT+1 
JSR FRTSCR I 'ARE 

JSR GEHSB 
BCC NEWFIM ;->VAIT FOR KEY 
LDA AHOLD 
AND #%01011111 
CMP #'Y 

;=>N0 NEWFILE 
; RESET START OF FILE 
; RESET END OF FILE 
; CLEAR THE SCREEN 
; PRINT CURRENT PACE 



BNE NEWFIN 
JSR INISOF 
JSR INIEOF 
JSR ERASE 

JSR mm 

RTS 



0935 
0938 
093B 
093E 
0940 
0943 
0945 
0948 
094A 
094D 



D951 
0953 
0955 
0957 
0959 
095B 
095D 
095F 
0961 
0963 
0965 
0967 
0969 
096B 
096D 
096F 

mi 



om 

0979 
09 7B 

097D 
097F 
0981 
0984 
0986 
0989 
0983 
098E 
0990 
0993 
0996 



207F08 
202E06 
AD0BE4 
85FE 
AD0CE4 
85FF 
AD793A 
856C 
AD7A3A 
856D 
A200 

A16C GETSCS 

F041 

C90C 

D008 

mm 
mn . 

E66D 

DOFO 

A90C GETSCT 

81FE 

DOlO 

A16C GETSCU 

F014 

C90C 

FOlO 

81FE 



^STSCV 



DOEG , 
E6FF 

DOES 

A56C 

8D793A 

A56D 

8D7A3A 

A5FE 

8D0DS4 

A5FF 

8D0EE4 

204208 

60 



GETSCW 



GETSCX 



> JSR ERASE 
JSR RESIB 
LDA SOP 

STA PRTPNT 
LDA SOP+1 
STA PRTPNT+1 
LDA SOF 
STA RA>IPTR 
LDA SOF+1 
STA RAfIPTR+1 
LDX #$00 
LDA (RAMPTR,X) 
BEQ GETSCX 
CMP #$0C 
BNE GETSCT 
INC RAMPTR 
BNE GETSCS 
INC RAMPTR+1 
BNE GETSCS 
LDA #$0C 
STA (PRTPNT, X) 
BNE GETSCV 
LDA ( RAMPTR, X) 
BEQ GETSCW 
CMP #$0C 
BEQ GETSCW 
STA (PRTPNT. X) 
INC RAMPTR 
BNE GETSCV 
INC RAMPTR+1 
INC PRTPNT 
BNE GETSCU 
INC PRTPNT+1 
BNE GETSCU 
LDA RAMPTR 
STA SOF 
LDA RAMPTR+1 
STA SOF+1 
LDA PRTPNT 
STA EOP 
LDA PRTPNT+1 
STA EOP+1 
JSR PRTCP 
I?TS 



; CLEAR 

; RESET INPUT BUFFER 



;INIT SOURCE POINTER 

;->START oi '0S$^ 

;«>ALWAYS 

; START WITH W 
;->ALWAYS ^ 

OF FILE 

;=>END OF SCREEN 
; STORE IN INPUT BUF 



;«>ALWAY$ 



jSjBT LOAD POINTEIt 



fSET EOP POINTER 



;SAVSCR STARTS PLACING $0C IN THE FILE 
sJiiAUSE THIS IS USED AS SCKREEN SEPERATOR, 
;AND tlAY NOT BE PART OF THE SCHREEN. IT ENDS 
jWITH PUCING 00 THIS IS THE END OF FILE fURK 



0997 
099A 
099D 
099F 
09A2 
09A4 
09A7 
09A9 
09AC 
09 AE 
09B0 
09B2 
09S4 



20980A SAVSCR 
AD12E4 

D005 

AD12E4 

F061 

AD7B3A iiliCS 

856C 

AD7C3A 

856D 

AOOO 

A90C 

916C 

E66C 



12 



JSR COMPL 
LDA PRTCNT 

BNE SAVSCS 
LDA PRTCNT 
BEQ SAVSCX 
LDA EOF 
STA RAMPTR 
LDA EOF+1 
STA RAMPTR+1 
LDY #$00 
LDA #$0C 
STA (RAMPTR), 
INC RAMPTR 



; COMPUTE LENGTH 

;GET COUNT 

;=>NOT EMPTY SCREEN 

;»^piTY SCHEEN 



;INIT TRANSF. POINTER 



Si^RATOR 



11310 

11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 
114^ 
11460 
11470 
11480 
11490 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11790 
11800 
11810 
11820 
11830 
11840 
11850 
11860 
11870 
11880 
11890 
11900 
11910 
11920 
11930 
11940 
11950 
11960 
11970 
11980 
11990 
12000 
12010 
12020 
12030 
12040 
12050 
12060 
12070 
12080 
12090 
12100 
12110 
12120 
12130 
12140 
12150 
12160 
12170 



09B6 

09B8 
09BA 
09BC 
09BE 
09C0 
09C2 
09C4 
09C7 
09C9 
09CC 
09CE 
09D0 
09D2 



D002 

E66D 

BIFE SAVSCT 
916C 
E66C 
D002 
E66D 

EE12E4 SAVSCU 
D005 
EE13E4 
F029 

E6FE SAVSCV 
D0E8 
E6FF 



tn^w i9is 

09D9 C5FF 
09DB 30DD 
09DD C6FE 
09DF C6FF 
09E1 18 
09E2 A939 
09E4 85FE 
09E6 E95A 
09E8 8D12E4 
09EB A90D 
09ED 85FF 
0*9EF E90D 
09F1 8D13E4 

09F4 2omm 

09F7 A9ai ii^^ 

09F9 mm 

09FB;^1^' 
09FD 8D7B3A 
OAOO A56D 
0A02 8D7C3A 
0A05 60 SAVSCX 

0A06 AD793A UPLOAD 
0A09 85FE 
OAOB AE7A3A 
OAOE 86FF 
OAIO CD7B3A 
0A13 D005 
0A15 EC7C3A 
0A18 F02A 
OAIA AOOO 
OAIC BIFE 
OA IE 8D6323 
0A21 EE793A 
0A24 D003 
0A26 EE7A3A 
0A29 C90A 
0A2B F0D9 
0A2D C90D 
0A2F D005 
0A31 A95F 
0A33 8D6323 
0A36 209E03 
0A39 205503 
0A3C 90C8 
0A3E 20D103 
0A41 4C390A 
0A44 60 



UPLGAE 



UPLOAF 



UPLOAG 
UPLOAH 



UPLOAI 



fi»E SAVSCT 

INC nmrni 
LDA (fmm.r 

STA (RimR),! 
INC RAMPTR 

BNE SAVSCU 
INC RAfIPTR+1 
INC PRTCNT 
BNE SAVSCV 
INC PRTCNT+1 
BEQ SAVSCW 
INC PRTPNT 
BNE SAVSCT 
INC PRTPNT+1 
LDA HIMEM 
SBC #$03 
CMP PRTPNT+1 
Wa SAVSCT 
DEC raTPNT 
DEC PRTPNT+1 
CLC 

LDA #FULTXT 
STA PRTPNT 
SBC #FULTXE 
STA PRTCNT 
LDA #FULTXT/256 
STA PRTPNT+1 
SBC #FULTXE/256 
STA PRTCNT+1 
JSR PRTSCR 
LDA #$00 

•STA immBL),Y 

LDA RAMPTR 
STA EOF 
LDA RAMPm+l 
STA EOF+1 
RTS 

LDA SOF 
STA PRTPNT 
LDX SOF+1 
STX PRTPNT+1 
a-IP EOF 
BNE UPLOAE 
CPX EOF+1 
BEQ UPLOAI 
LDY #$00 
LDA ( PRTPNT), Y 
STA A^^ 

wc sm 

BNE UPI^AF 
INC SOF+1 

aip #$0A 

BEQ UPLOAD 
CMP #$0D 
BNE UPLOAG 
LDA #$5F 
STA AHOLD 
JSR PUTMOD 
JSR GETMOD 
BCC UPLOAD 

JS R : 
HTS 



;GET CHARACTER 
. 5PALCA lU FILE 



•>LAST CHARACTER 



;LITLE SPACE FOR DIR 
;«>N0T MEMORY FULL 



;SET WARNING FULL! 



;=>NOT LAST CHAR. 
;=>EMPTY FILE 
;LOAD CHARACTER 



;«>LINE fESB 

;=>N0 RETURN 
jVIDIOTEX CODE # 

;SEND CHARACTER 



;KEY READ ONE KEY AND SEND IT UNCODED 
0A45 202103 KEY JSR GETKB ;RSAD KEY 

0A48 90FB BCC KEY pm^mi 

0A4A 209E03 JSR PUTMOD 

0A4D 60 RTS 



; PARITY 
0A4E 18 PARITY 
0A4F A95B 
0A51 85FE 
0A53 E97E 
0A55 8D12E4 
0A58 A90D 
0A5A 85FF 
0A5C E90D 
0A5E 8D13E4 
0A61 20B00A 
0A64 202103 PARITl 
0A67 90FB 
0A69 AOOl 
0A63 AD6323 
0A6E 295F 



DIS/SN ABELES PARITY CHECK 

CLC 

LDA #PARTXT 
STA PRTPNT 
SBC #PARTXE 
STA PRTCNT 
LDA #PARTXT/256 
STA PRTPNT+1 
Ite ifelRTXE/256 



;SBT PRINT POINTERS 



BCC PARITl 

LDY #PARMAS 

LDA AHOLD 

AND #%01011111 



; PRINT MESSAGE 
tmC <ANSWER 

; PARITY MASRSR 
;GET ANSWER 
;0NLY CAPITAL 



5 □ a 



12180 
12190 
12200 
12210 
12220 
12230 
12240 
12250 
12260 
12270 
12280 
12290 
12300 
12310 
12320 
12330 

mm 
mm 
vmm 

12370 

12380 
12390 
12400 
12410 
12420 
12430 
12440 
12450 
12460 
12470 
12480 
12490 
12500 

mm 

12520 

12530 
12540 
12550 
12560 
12570 
12580 
12590 
12600 
12610 
12620 
12630 
12640 

12160 
12^70 
I2i80 
12690 

12700 
12710 
12720 
12730 
12740 
12750 
12760 
12770 
12780 
12790 
12800 
12310 

itm 

12830 
12840 

12850 
12860 
12870 
12880 
12890 
12900 
12910 
12920 
12930 
12940 
12950 
12960 
12970 
12980 
12990 
13000 
13010 
13020 
13030 
13040 



0A70 C944 
0A72 D002 
0A74 AOOO 

0A76 8C17E4 PARIT2 • 
0A79 204208 

0A7C 60 

0A7D A97E INISOF 
0A7F 8D793A 
0A82 A93A 
0A84 8D7A3A 
0A87 60 

0A88 A97E INIEOF 
0A8A 8D7B3A 
0A8D A93A 
m&f 8D7C3A 
dA92 A900 
imu 8D7E3A 
0A97 60 



CMP #*D 

RTS 

LDA #S0F+5 
STA SOP 

LDA #S0F+5/256 

STA m*! 

RTS 

LDA #S0F+5 

STA EOF 

LDA #S0F+5/256 

STA EOF+1 

LDA l$00 

STA S^+5 

RTS 



; RESET FILE 



; RESET FILE 



;S£T m NARK 



CmPL (30HPUTES THE PAGE imm FOR PRTSCR 



0A98 
0A99 
0A9C 
0A9E 
OAAl 
0AA4 
0AA7 
0AA9 
OAAC 
OAAF 
t 



38 

AD0BE4 

85FE 

ED0DE4 

8D12E4 

AD0CE4 

85FF 

mmu 

8D13E4 
60 



SEC 

LDA SOP 
STA PRTPNT 
SBC EOP 
STA PRTCNT 
LDA SOP+1 
STA PRTPNT+1 
SBC EOP+1 
STA PRfOiT^l 
RTS 



;PRTSCR PRINT CHARACTERS ON THE S( 

; USING THE VIDIOTEX PROTOCOL 
; PRTPNT IS CHARACTER POINTER 
; PRTCNT IS THE COUNTER (NEGATIVE) 




OAC^ 

OACC 
OACE 
OADO 
0AD2 
0AD4 
0AD6 



0AD7 2105 
■0AD9 7008 
OADB 2D06 
OADD 2105 
OADF D707 
OAEl 7E08 

6AE5 34t59 
0AE7 1308 
0AE9 7C0A 

OAEB 2105 
OAED 440A 
OAEF 4108 
OAFl 6308 
0AF3 0309 
OAFt il« 



PRTSCR 


LDX 


PRTCNT 






BNE 


PRTSCl 


;«>PRTGNT#^i 




LDX 


PRTCNT+1 






BEQ 


PRTSC3 




PRTSCl 


LDX 


#$00 




LDA 


(PRTPNT, X) 




STA 


AHOLD 




. ' "i 


JSR 


XQDm 


;ftINT,qiARACTR 




INC 












' .• < 




PRTdfT+l 






BEQ 


PRTSC3 




PRTSC2 


INC 


PRTPNT 






BNE 


PRTSCl 






INC 


PRTPNT+1 






BNE 


PRTSCl 


;«> ALWAYS 


PRTSC3 


RTS 







COHVEC 



0AF7 
0AF9 
OAFB 
OAFD 
OAFF 
OBOl 
0B03 
0B05 
0B07 
0B09 
OBOB 
OBOD 
OBOF 



2DDF 
4808 
3508 
9609 
880D 
050A 
8808 
2105 
5B08 
4D0A 
5F08 
6708 
2105 



.WORD 


BELL-1 




.WORD 


DUMCOD-1 


;A 


.WORD 


RES IB- 1 


;B 


.WORD 


BELL-1 


;C- 


.WORD DOS-1 


;D 


.^RD ERASE-1 


;E 










JG 


.WORD 


HELP-1 


;H 


.WORD 


INISOF- 1 


;I 


.WORD 


BELL-1 


;J- 


.WORD 


KEY-1 


;K 


.WORD 


PRTCP-1 


;L 


.WORD 


CRET-1 


;M 


.WORD 


NEWFIL-1 


;N 




BELL-1 


;0- 


.WORD 


$DF2D 


;P 


.WORD 


QUIT-1 


;Q 


•WORD 


REVEAL-1 


;R 




SAVSCR-l 


;S 


.1DR0 




.WORD 


VIDIBU-1 


;V 


.WORD 


BELL-1 


;W- 


.WORD 


CANCEL- 1 


;X 


.WORD 


PARITY- 1 


;Y 


.WORD 


CHRINS-1 


;Z 


.WORD 


ESCAPE- 1 




.WORD 


BELL-1 


»*" 



Hardcopy routine 



13050 
13060 

13090 

13100 
.'. 13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 
13220 
13230 
13240 
13250 
13260 
. 13270 
13280 
13290 
13300 
13310 
13320 
13330 
13340 
13350 
13360 
13370 
ji-13380 
13390 
13400 
13410 
13420 
13430 
13440 
13450 
13460 
I 13470 
I 13480 
13490 
' 13500 
13510 
13520 
13530 
13540 
13550 
13560 
13570 
13580 
13590 
13600 
13610 
13620 
13630 
13640 
13650 
13660 
13670 

wm 
mm 

13700 
13710 

13720 
13730 
13740 
13750 
13760 
13770 
13780 
13790 
13800 
13810 
13820 
1^ 



OBll 2105 
0B13 2105 
0il5 2105 



.WORD BELL-1 
.WORD BELL-1 
.WORD BELL-1 



OBir 

0B19 
0B2B 
0B2E 
0B44 
0B46 
0B5C 
0B5E 
0B70 
0B85 
0B87 
OBAO 
0BA2 
OBBA 
OBBC 
0BD3 
OBDC 
0BF2 
0BF4 
OCOC 
OCOE 
0C28 
0C2A 
0C43 
0C45 
0C5B 
0C69 
X81 
0C83 
0C9C 
OCAC 
0CC4 
0CC6 
OCEl 
OCEA 
0D02 
0D09 
ODOB 
0D22 



oc 

4F 
OA 
5E 
OA 
5E 
OA 
5E 
5E 
OA 
5E 
OA 
5E 
OA 
5E 
75 
5E 
OA 
5E 
OA 
5E 
OA 
5E 
OA 
5E 
20 
5E 
OA 
5E 
63 
5E 
OA 
5E 
20 
5E 
63 
IE 
48 
2Q 



0D23 II 
0D25 07 
0D3i 20. 

0D39 IE 
0D3B 07 
0D51 6E 
0D5A 20 

0D5B IE 
0D5D 07 
0D72 70 
0D7E 20 

0D7F 30 



E7DF- 
f3il- 



HLPpS 

♦ 



13850 
13860 
13870 
13880 
13890 
13900 
13910 



(mm 

0D8C 
0D8E 
0D90 
0D93 
0D95 
0D97 
0D99 
0D9C 
0D9F 
0DA2 
0DA4 

mi 
mm 

ODAS 
ODAD 

ODBO 
0DB3 

0DB5 
0DB8 
ODBA 



.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
•BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.IITE 

.irrE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



$OC,$OA 

* OPTIONAL COMMANDS:' 
$OA,$OD,$OA 

$5E, *A Send access-codes' 



$OA,$OD 
$5E/B 
$OA,$OD 
$5E,'D 
$5E/E 
$OA,$OD 
$5E/G 
$OA,$OD 
$5E/i 
$OA»|O0 

$5E/K Read and dand kef * 
*uncodedMOA,$OD 

$5E/L List .c.i|3eir#it page* 



Reset page buffer' 

DOS-Command ' , $0A , $0D 
Etpaa the screen* 

Get 8c;reen from fi|<^ 

laset «l^t of flle^ 



$OA,$OD 
$5E, 'N 
$OA,$OD 
$5E,'P 
$OA,$OD 
$5E.'Q 
$OA,$OD 
$5E,'R 



Clears current file' 
Print page on printer' 
Leave the programme ' 



Reveal: shows the' 
' hidden inf o' ,$OA,$OD 
$5E,'S Save screen in file* 
$OA,$OD 

$5E,*T Start terminal pro to* 
*col 40/80 col.*.$OA,$QD 
$5E,*U Upload currend file* 

$OA,$OD 

$5E,'V Store and send VIDIBUS' 

' number ' ,$OA,$OD 

$5E,'Y Dis/En-able parity * 

'check' ,$OA,$OD 

$1E,$0B 

*Hit any key to continue' 
♦20 . . 



J 

FULTXT 

FULTXE 
PARTXT 

PARTXE 
CODE 



.BYTE $1E,$0B 

.BYTE $07, 'Is the file save? * 

.]irTii07»,l^l|i|l]f6^l6w * 
.MTi 110 I ' -« - »^ 

.BYTE $1E,$0B 

.BYTE $07,'E)nable or D)isable ' 

.BYTE 'parity Hi^k^- 

.BYTE $20 

.BYTE '0123456789' 



END OF VIDIOTEX PROGRAMME 



18 
A9FA 

85FE 

E930 

8D12E4 

A90D 

85FF 

E90E 

8D13E4 

20B00A 

202103 

90FB 

AD6323 

<^D 

MD8 

A960 

BWFE7 

20E1F3 

A940 

8D0EE1 

A900 

8D17E4 



F0RMAT-$E7DF 

wm m$mi 

I' 



;($F435)0LD MOVGRT 



cue 






LDA 


ITERTXT 




STA 


PRTPNT 




SBC 


#TERTXE 




STA 


PRTCNT 




LDA 


#TERTXT/256 


STA 


PRTPNT+1 




SBC 


#TERTXE/256 


STA 


PRTCNT+1 


;SET TEXT POINTERS 


JSR 


PRTSCR 


; PRINT TERMI TEXT 


JSR 


GETKB 


;READ ANSWER 


BCC 


TERMIl 


;«>N0 KEY 


LDA 


AHOLD 






#$0D 




mi 


TERMr2 


;->40 COLOMN 


IDA 


#$00 




STA 


FORMAT 




JSR 


MOVE 




LDA 


#$40 




STA 


VAIER 


; RESET TIMER 


LDA 


#$00 




STA 


PARCHK 


;N0 PARITY CHECK 
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13920 
1M30 

wm 

13970 
13980 
13990 
14000 
14010 
14020 
14030 
14040 
14050 
14060 
14070 



ODBD 
ODCO 
0DC3 
0DC5 
0DC8 
ODCA 
ODCC 
ODCE 
ODDO 
0DD3 
0DD5 
ODDS 
ODDB 
ODDE 
ODEO 
0DE3 



202FF3 

205503 TERMI3 

9016 

AD6323 

C90A 

FOOF 

C90D 

D008 

2000F0 

A90A 

8D6323 

2000F0 TERMI4 
202103 TERMI5 
90E0 
AD6323 
C916 



JSR RESET 
JSR GETMOD 
BCC TERMI5 
LDA AHOLD 
CMP #$0A 
BEQ TERMI5 
CMP #$0D 
BNE TERMI4 
JSR VIDEO 
LDA #$0A 
STA AHOLD 
JSR VIDEO 
JSR GETKB 
BCC TERMI3 
LDA AHOLD 
CMP #$16 



; RESET SCREEN 

;«>N0 MODEM INPUT 
5W CHARACXER 

;«>LINE FEED 

;«>N0 CR 
;SEND CR 
;LOAD LF 

;PRINT v., 
;READ KB l '' - ' 
;->N0 KEY 
;6£T (BRACTS 



14080 
14090 
14100 
14110 
14120 
14130 
14140 
14150 
14160 
14170 
14180 
14190 
14200 
14210 
14220 
14230 



ODES 
0DE7 

0DE8 
0DE9 
ODEA 
ODED 
ODEF 
ODFl 
0DF4 
0DF7 

ODFA 
ODFD 
0E13 
0E15 
0E3d 



mm 

68 

68 

78 

4C1802 

C911 TERMI6 
F006 
209E03 
4CC00D 

4G4908 mmi 



BNE TE8MI 6 
PLA 

JMP INITAM 
CMP #$11 

BEQ TERMI7 
JSR PUTMOD 
JMP TERMI3 



; DISABLE INTERRUPTS 
;BACK TO VIDIOTEX 

l»>CTRL Q 
iSWm CMRACTER 



IE 
07 
OA 
61 
20 



.BYTE $1E,$0B,$0B 

.BYTE $07. 'Type <ret> for 40 or ' 

.BYTE $0A,$0D 

.BYTE 'an other key for 80 columns' 

.Brm m 




(1) Viditel techniek voor de abonnee apparatuur 
Opgesteld door: J.J.M. Blokland 

Een uitgave van VIDITEL T&O 

SIF^^^nuTn^SJ"?' SS,pD. (To order, •ention the forwt) 
Because OHIO-DOS is part of the system on bootable disks 
and 15 not placed in the public dotain you mist prove you 
bought it yourself, by sending wilHi timLim^^ femii 
•« can deliver the diskettes. ^ ^ ^^^m^m, wmm 



For EC65 alias OCTOPUB 
S5D OHHTDisTDd^^ 
VTDEOTEI "IT tte inte 
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Bootable DISK Hith Hicpo-flDE V2.0fl. 

liL iVll^ P"^''" '^^f**^ "P relocating and reM- 
52 ?LS" l!™!««sarv 'garbage' and upgraded to Version 
2. OA (separated aanual and coaplete coMtnted assesblv 
soopce-hsting of V2.0 Ntth special twdTwroind 5Se2 

^ SJ'^X «!»sltette Mith label and R/H prot. and ciNNMt of 
Hfl. 22,00 (evrocheqw 12,50) to U.L van PeltT 



VIDITEL by the Dtttch PTT. 

In issue 47 of Dec 1966 Coen Boltjes published the first 
part of the article to give you the possibility to comni- 
cate Nith Videotex ditMi, Itftt Elikter*! Mlctin 
board and others. 

In issue 48 of Febr 1987 he published the VIOEOTEX-pro- 
graaae Nith available cooMnds like flcces. Buffer, Dos, 
Erase 6et, Help, Init, Key, List, NeN, Print, Quit, 
Reveal Save, Teniinal, Vidibus, etc. A dotmload pregrasM 
it to be developed. 

SAVE YOUR TINE MD ORDER 1\£ SOFTMARE ! 

Send eapty diskette Mith label and R/M-prot. and cheque tf 

Hfl. 22,00 (eerochMiae « Hfl. 12,50) to U.L van Pelt. 
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express! on. a 
expression - coiiment 

aeeei 

88002 

00093 
08010 

00011 

00012 
§0013 
00014 

68815 

80017 ^iUiUMUUUUUMUMUUUUMMUUMUMUUn^iUUUUUUUUU^^^^^ 
000 18 X 

Calculate -floating-point expressions 



00000001 Edition 
00000181 Typ-Lang 
00008000 Attr-Rev 



nam 
ttl 



equ 
equ 
equ 



expression 
'C'oniRisn-t 



1 



<Prgrm<<8)+0bjct 
<ReEnt«8)+8 



psect Expr essi on. Typ-Lang, At tr_Rev, Edi t ion ,0 .Main 



888 19 
88828 
88821 
88822 
00023 
08824 
88825 
88826 
00027 
88828 
88829 
80838 
88831 
88832 
80033 
88834 
88835 
88836 
88837 
88038 
00839 



00041 

00042 
88843 
88844 
88045 
88846 
08847 
00048 
88849 
00058 
60051 
00052 
00053 
00054 
00055 
00056 
88857 
00058 
00059 
80060 
88861 
00062 
08063 
08864 
08065 
0ee<S6 
00867 
00868 
86669 
88878 
88871 
00072 
86873 
00074 



jf G. van Opbroek x 

X Bateweq 68 X 

X 2481 AN Woubruoge " * 

X Tel : 81729-8632 X 

"***'l988 P.v.d.2ee,6.v»®pl»'afil(: First version in Pascal for Cyber 178/768 
AuQ 1986 G.\>.ODbroek ' '■ '. 68886-assembler -for mc68868 with monitor 

Wc Ifll S.v.OpbreeK VlVt-'^ s 68000-assembler ior 0S9/68k 

Dit programma berekent -f loatinq-point ui tdrukkingen die aan de onder- 
staande syntax voldoen. Het prooramma is qeschreven op een mc 68000 
systeem met 0S9/68k als operatino systeem. Om de floating-point bereke- 
ninoen uit te voeren, maakt het proqramma qebruik van system calls naar de 
bij 0S9/68k behorende Math Module. , u x x i. u ^ 

Een te berekenende uitdrukkinq wordt inqevoerd vanat het toetsenbord. en 
het antwoord wordt op het beeldscherm afqedrukt. Een uitdrukking mag meer- 
dere niveaus haakjes bevatten. Een uitdrukkinq wordt a+gesloten met '-CR?. 

This proorara calculates floating-point expressions that have the 
fdtVowfnf syntix: 



<expression> 

<adding operator> 
< term> 

<multiplying operator> 
<factor> 

<exponentiation opera tOP> 
<pr imary> 

<-function name> 

<p_expression> 

<real> 

<siqn> 

<unsigned rea1> 

<exp_char> 

<(ftantissa> 



<point> 
<exponent> 
<con5tant> 
<di9it> 



<term> I 

<expression> <adding operator> <term.> ' 
+ ! - 

<factor> I , . ^ 

<term> {multiplying op#rator> <factor> 

^ i / 

<primary> I 

<-factor> <exponentiation operator> <primary.> 

A 

<rea1> I <p-.expressi on> I 

<-function name.> <p-expressi on> 

SIN I COS I TAN I ASIN 1 ACQS I ATAN I 

LN I LOG ! SORT i EXP 

( <expre5sion> ) 

<un5i9n«d r#al> I <si9ft> Cunsigned real> 

€nNl^tii^sa> <©xp«char> Cexpmmi^ 



<mantisti> 
e I E 
<constan t> 
<constan t> 



I <point> <constant> 
<point> 



<con5tant> <point> Cc^nvtait) 

<constant:> I <siQn> <con5tant> 
<diQit> I <diQit5 <constant> 
t II { 2 ! 3'l 4 j 5 { 4 I 7 I 



i 



An 



expression is te^tilited by <CR>a 
The prtgrara uses the •followiiif 0S9-systefn calls: 



IfReadLn 



IfMrite 
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expressid#p* 
expression - comment 

00075 X Fmink FfExit 

00076 t 

00077 X These system calls are made by ths w»cro Oif. 

00078 X This macro is a synonym for: 

00079 X trap 9 
00088 X dc.u) nnnn 
00081 X 

08882 X The Math Module (Floating-point library) is accessed by the -fol lowing 

88883 X user calls 

88884 X 

88885 X 
80086 X 

00087 X 

00088 K 

00089 X Calls to the Math Module are made by the macro 
00098 X tcall T$Mathl,nnnn or 

80091 X tcall T*Math2,nnnn 

00092 X These macro's are resp. synonsm -for: 

00893 X trap 15 

88894 X dew nnnn : or 

80095 X trap 14 - 

00096 X dew nnnn 

00097 X 

00098 X Note! In 089, a -floating-point library is included. For other systems, a 
lleatino-point library has to be added to this proar^, A HCX'dump 
of a library can be -found in: mc 2/1985. 



T*DAdd 

T*Sin 

Tfixp 



T*DSub T*DMul T$DDiv TfPower 
T*Cos T*Tan T*Asn T*Acs TfAtn 
TfSqrt T*AtoD T»DtoA T*LtoA 



T*Loq T*Lool0 



00099 X 

00100 X 

00101 



00102 MMMUMnytU^tunuuMuunnuriMuurriMMMMUMnnnnririunu^ 

00103 
00104 
00105 

00106 

00107 
08188 
88 109 

00 1 10 
00111 
00112 

00113 
00114 

mil 

010117 

00118 

00119 

00lit'ti^'-.-r 

08121 
00 122 
00123 
00124 
00125 
00126 
80127 
09128 
#8119 

00188 8008 3d06 
60131 8004 86a 1 
00132 
00133 

00134 00000000 

68 135 

00136 00000008 

00137 

00138 0000 4d41 

00139 88000000 
80148 88000001 
88141 





ttl 


macro-de-f ini tions 


Push-res 


macro 
move . 1 
move . 1 
endm 


d0.-(a7) 
dl,-<a7) 


Push result of -fp-calculation 


Pul 1-res 


macro 
move . 1 
move. 1 
endm 


(a7)-^,dl 
<a7)+,d8 


Pul 1 fp-iFtSI|ll frOfR itAGk 


Copv-reg 


macre) 
move. 1 
move. 1 
endm 


d8.d2 .T 
dl.d3 


Copy -fp-reQisters d8,dl to d2,d3 




macro 
lea 

move. 1 
move. 1 
effidm 


Write precision to d2«# . 
Precision<a6) ,a2 > 
•;a2)-f.d2 
(a2)-f,d3 ■• 




ttl 

vsec t 


> 




Precision 


del 


$30068498 
$86A12B9C 


Precision in -function calls: lE-14 


IO_Len 
IO_Buff 


equ 
ds.b 


88 

lO-Len 


lO-bu-ffer length 
88 Bvtes lO-buf-fer 




ends 






Math-.name 

Inp«ch 

Out-ch 


dc 

equ 

equ 


"MATH", 8 

8 

1 


Name of math module ' 
0S9 standard input channel 
0S9 standard output channel 


Err-msQ 


dc 


"ERROR" ,*8d,'*8a,8 
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expression .a 
expression - data 



06143 
60144 
00145 
60146 
66147 
66148 
88149 
88156 
66151 
66152 
00153 
00154 
00155 
00156 
06157 
66158 
00159 
00160 

00161 

00162 
00163 
00164 
00165 
00 166 
00167 
00168 
00169 
66170 

00171 

00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 

00180 

00181 
00182 
00183 
00184 
00185 
00186 
80187 
00188 
00189 

00190 

00191 
00192 
88193 
80194 

00195 
00196 
00197 
00198 
00199 

00200 

0020 1 
00202 
00203 
00204 
00205 
00206 
00207 
00208 
00209 
80218 



8t80B60c Err-ien 



8012=303c Main 
0016 7200 
0018 4Ha 
001c=4e40 

0020=303c 
0024 7200 
8826 4Ha 
002a«4e48 



082e 7880 
0030 7250 
0032 41ee 
0636=4648 
883* ^526 



M_LoOp 



003c 
0046 
0042 
8644 
8848 

064a 
e04e 

0050 



4 lee 
6124 
6506 
8c 18 
6712 

4Ha 

7001 

223c 



8e56=4e48 
88Sa 68d2 



005c 

0060 



6100 

60CC 



No^error 



•qu 

•til- . 

move .w 
moveq 
lea 
os9 

move .w 

moveq 

lea 

§mf " 

moveq 
moveq 
lea 

tm- 

lea 
bsr .s 
bcs.s 
cmpi .b 
beq.s 

1ea 
moveq 
move . 1 
os9 
bra«s 

bsr 
bra.s 



X-Err-rasg 



l»T*Mathl,cli Trap number -for math module 
tt0,dl No optional memory override 

Math_name<pc> ,a8 
F*TLink 

ttT*Math2,d0 Trap number -for math module «l«»ctiDR») 
#0 ,dl No optional memory override 

Math_name<pc> ,a8 

«Inp_ch,d0 Path-number ^ ^ 

#IO_Len,dl Maximum numbers of brt»f In !»■ ftead 
I0_Buff<a6) ,a8 pointer on Itt,li»*fir 
I*ReadLn ^ . ^ ; ' v 

Main^end On error, gotii ilfttMno 



I0_Bu-f-f(a6) ,a8 
Expression 
M_error 
md.<aO> 
No_ error 



pointer on lO-Bu-f-fer 
Evaluate expression 
Carry set — > error,, 
End-o-f-line? 
Yes, no error 



Err_msg<pc) .30 Write error mes««iBv 

ttOut_ch.d8 Path-number • 

#Err_l en .dl 

I*Write 

M-Loop 



6662=4e48 Main-end 059 



ttl 



Wr-Real 
M_Loop 

FfExit 

subroutines 



Write answer 



Expression 



^ Expression reads and calculates expression 



0066 
006a 
006c 

0070 

0672 

0878 
887c 



6100 

6552 
0cl0 
661c 
5288 

6188 
6532 



Exp-1 oop 



e686=4e46 
008a 64e0 



008c 

068e 
0092 
0094 

009a 
009e 



6030 

0cl0 
6626 
5288 

6100 

6518 



T_Sub 



00a8=4e40 
00ac 64be 
88ae 6e8e 



bsr 
bcs.s 
cmpi .b 
bne.s 
addq. 1 
Push-res 
bsr 
bcs.s 
Copy-req 
Pu I 1_res 
teal 1 
bcc .s 
bra.s 

cmpi .b 

bne.s 

addq. 1 

Push_res 

bsr 

bcs.s 

Cooy_reg 

Pul i_res 

teal 1 

bcc .5 

bra.s 



Term Read/calculate -first terW 

Exp_exit On error; return - ". 

+ ' ,(a8) Addition ? 

T_Sub When not, try subtriMlli»' r, , 

«l,a0 Skip + ■ 

Term Read/calculate next term 

Expl Oft error, clear stack and rejlwp 



T$Mathl,T$DAdd 
Exp-loop 
Exp_exi t 

.<a0) 
No_subion 
#1 ,a0 



No error , continue 



Term 
Expl 



Subtraction ? 
When not, return 
Skip - 

Read/calculate next imm 

On error, clear stack and return 



T*Mathl,T*DSub 
Exp_l oop 
Exp_exi t 



No error, continue 
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KEMNER 



Pul 1_re5 

ori.b W/.d22Bd99ltCCr Set carry 
bra.s Exp-exit Exit -factor 

andi.b ^Iilll|f|t|Ccr Clear carry 
rts 
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expression. a 
expression - subroutines 
08211 Expl 
00212 e0b4 083c 
08213 00b8 6004 
80214 00ba 023c No_subion 
00215 08be 4e75 Exp.exit 
88216 

80217 Term 
00218 

00219 X Term reads and calculates terras 
08228 

80221 88c8 6188 bsr Factor.; 

00222 88c4 6552 bcs.s Ter_exit 

88223 08c6 0cl0 Ter_1oop cmpi.b IfX^Caf) 
00224 00ca 661c bne.s t«Glt 

)cc 5288 addq.l ilVtt 



88225 
00226 

00227 80d2 6100 

00228 MM 41^ 
0022f 

00230 

00231 00e0»4e40 

00232 00e4 64«0 

00233 00e6 6030 

00234 ^ 

00235 00e8 0c 10 T-Div 

00236 00ec 6626 

00237 00ee 5288 
88238 

00239 00f4 6100 

00240 00f8 6548 
00241 

00242 

00243 0102»4e40 

00244 0106 64bt 

00245 0(0i 60ie 

00246 Terl 

00247 010e 003c 

00248 8112 6004 

00249 0114 023c No-divion 

00250 8118 4e75 Ter_exit 
08251 

00252 Factor 
00253 
00254 
00255 

00256 011a 6100 

00257 011e 6538 

00258 0120 Ocl0 Fac-loop 

00259 0124 6626 
00268 0126 5288 
00261 

88262 012c 6100 

88263 8130 6510 
88264 

88265 

88266 013a=4e40 
00267 813e 64ee 

88268 8148 688e 

88269 Fact 

88270 0146 803c 

00271 014a 6804 

00272 014c 023c No-exption 

00273 0150 4e75 Fac-exit 



bsr 
bcs.s 
cmpi .b 
bne.s 
addq . I 
' Fustier es 
bsr 
bcs.s 
Copv-reg 
Pul i_r«« 
tcall 
bcc.s 
braiS 

cmpi .b 
bne.s 
addg . 1 

bsr 
bcs.s 
Copy_reQ 
^1 i».r«s 
trail 
bcc.s 
bra.s 
Pul l-res 
or I .b 
bra.s 
andi .b 
rts 



Factor 
Facl 



"mMathUfDMul 
«V',<a0) 



Read/calculate -first -factor 
On trrort return 
Multiplication ? 
Mhen not, try division 
Skip X 

Read/cafeutitte next -factor 

On error, clear stack and return 



ill 4 at 

Facl 



terror, contir>u#: 



Diviminn f 

When not, tetiirp t 
Skip / 

React/calcuUtt next -factor 

On error, clear stack anil return 



T*Mathl,TfDDiv 

Ter^loop 

Ter-exit 

i%08lif«il,ccr 
Ter-exit 



No error, continue 



Set carry 
Exit factor 
Clear carry 



X Factor reaife and calculates -factor* 



00274 
00275 
00276 
00277 
00278 



bsr 
bcs.s 
cmpi .b 
bne.s 
addq. I 
Pu shares 
bsr 

bcs.s ' 

Copv-reg 

Pul i^res 

tcall 

bcc.s 

bra»s 

Pul T -res 

or i .b 

bra.s 

andi .b 

rts 



Primary 
Fac-exi t 

No-exf 
#l,ae 

Priaar^ 



Read/calculate -first prl|liir}/ 
On error; return a. 
exponentiation ? , 
When not, retuf^ll : . ; 

Skip " 

Read/calculate next primary 

flh trror, clear stack and return 



T*Math2,T*PQwer 

Fac-loop Ho error j <^tliiii# 

Fac-exit 

#^0800000 l,ccr Set carry 
Fac-exit Exit -factor 

«;<lMlU18,ccr Xlttr carry 



^ Primary reads and calculates priiftiriiis 



8 
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express! on. a 
expression - subroutines 

88279 0152 6188 bsr 

08280 0156=4e40 teal 1 

88281 015a 6410 bcc.s 

00282 015c 0c 10 cmpi.b 

88283 8160 6606 bne.s 

00284 0162 6100 bsr 

00285 0166 6084 bra.s 

00286 0168 6100 Priml bsr 

00287 016c 6504 Prim_exit bcs.s 
08288 816e 6188 bsr 
88289 0172 4e75 Prim_el pt« 
80290 

88291 R»ad-fte 
88292 

88293 X ReacLfie reads and Galculates fwiellimf 
00294 

88295 0174 2248 move.l 

80296 0176 1818 move.b 



Skip_b1 ancs 
T*Mathl,T*AtoD 

Pr im_exi t . 
#'C ,<a0) 
Priml 
P_expres 
Prim_exi t , 
Read_-f ie 
Prim_el 
Skip-bl ancs 



SRlp Itadlnt iliiWES 

Found real , return 
Expression in parenthesis? 

Yes, read expression 
exit primary 

Not an expression, try -function 
On error, return 
Skip trailing blancs 



1818 

00297 0178 7a02 
08298 817a el8c R_-fiel 
88299 017c 1818 
00300 017e b83c 
00381 8182 6d86 
88302 0184 b83c 

00303 0188 6-f06 

00304 018a 5388 R_-fie3 

00305 018c 183c 

00306 0190 51cd R_-fie2 
00307 

00308 0194 bSbc T_sin 

00309 019a 6618 

00310 819c 6100 

0031 1 eua dsee 

00312 

00313 01ac=4e40 

00314 01b0 6000 
00315 

00316 01b4 b8bc T_cos 

00317 01ba 6618 

00318 01bc 6100 

00319 eicO 6508 
88328 

00321 01cc=4e40 

00322 01d0 6000 
00323 

00324 01d4 b8bc T_tan 

00325 81da 6618 

00326 81dc 6180 

00327 8 lee 6588 
00328 

00329 01ec=4e40 

00330 0H0 6000 

00331 

00332 0H4 b8bc T_asin 
88333 0Ha 6618 
80334 8 He 6188 
88335 0200 6500 
88336 

88337 82ec=4e48 

88338 0210 6888 

00339 

00348 0214 b8bc T_acos 

00341 021a 6618 

00342 021c 6100 

00343 0220 6500 
88344 

80345 822c=4e40 
00346 0238 6888 



moveq 
1s1 .1 
move.b 
cmp.b 



bit. 
cmp 



.s 

ble.s 
subq . 1 
move . b 
dbra 



a0.al 
':a0) + ,d4 
I»2.d5 
#8.d4 
(a6)+,d4 
ft'A' .d4 
R_-fie3 
tt-'Z' .d4 
R_-fie2 
#l,a0 
♦I' ' .d4 
d5.R_-fiel 



cmp.l tt'SIN ',d4 

bne.s T_cos 

bsr P_expres 

bcs R-f_esicit 
Prec_l oad 

tcall T$Math2,TfSin 

bra R-f_exit 

cmp.l tt'COS ',d4 

bne.s T_tan 

bsr P_expres 

bcs R-f_exit 
Prec_load 

tcall T*Math2,T»Tan 

bra R-f_exit 

cmp.l «'TAN ',d4 

bne.s T_asin 

bsr P_expres 

bcs R-f_exit 
Prec_1 oad 

tcall T*Math2,T*Tan 

bra R-f_exit 

cmp.l tt'ASIN',d4 

bne.s T_acos 

bfer P_expres 

bcs R-f_exit 
Prec_l oad 

tcall T$Math2,T*Asf> 

bra R-f_exit 

cmp.l «'AC0S-',d4 

bne.s T-atan 

bsr P_expres 

bcs R-f-exit - 
Prec_l oad 

tcall T*Math2,T$Acs 

bra R-f_exit 



Save pointer 
Get -first character 
Read another three c»**l«*#« 
Shift 1 byte 
Read the next character 
< 'A' ? 
no, continue 



1' ? 



no, continue 
Yes, adjust pointer 
Add space to d4 

Read until -four characters in d4 



Calculate argument o-f -function 
On error, exit Reii4.#it 



Calculate argument of -function 
On error, exit Rpiifc.#i# 



Calculate argument o-f -function 
On error , exit Read«f ie 



Calculate argument o-f -function 
On error f fxit Rea4»fi« 



Calculate argument of function 
On error, exit Readu.fi e 
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cmp.i rmm' ,64 

bne.s T-lrt 

btP P^expres 

bcs R-f-exit 
rrtc-.load 

«C«II"* T$Math2,T*Atn 

bra R-f-exit 



cmp. 1 

bsr 
bcs 



T.log 
P-expres 
Rf-exit 



,d4 



Prec-load 
teal I T*Math2,T$Log 

bra R-f-exit 



Calculate argument o-f -func 
On error , exit Reaiiiitfi 



Calculate argument of -func 
On error, exit Read^fie 



9.4 




#aoG ^d4 

T-sqr t 
P-expres 

rec^load 
tcall T$Math2,T*L09l8 
bra R-f-exit 

cmp.i **'SQRT ,d4 

bne.s T-exp 

bsr P_expres 

bcs Rf-.exit 
Prec-load 

tcall T$Math2,T*Sc|rt 

bra R-f-exit 



Calculate aroument o-f -func 
On error, exit Read^fie 



Calculate argument of func 
On error, exit itti^llt. 
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expression .a 
expression - subroutines 
00347 

00348 0234 bSbc T_atan 

00349 023a 6618 

00350 023c 6188 

00351 8240 6588 
00352 

00353 024c=4e40 

00354 0258 6000 
00355 

00356 0254 bSbc T_1n 

00357 025a 6618 

00358 025c 6100 

00359 8268 dSet 

80360 

00361 026c=4e40 
80362 0270 6000 
90363 

80364 0274 bSbc T_loQ 

00365 927a 6618 ' ^■ 

00366 027c 6100 
88367 8288 6S»e 
00368 

08369 828c=4e40 
06370 9298 6888 
08371 

66372 8294 b8bc T_sqrt 
88373 029a 6618 

00374 029c 6188 

00375 e2a8 6588 
00376 

08377 02ac=4e48 
88378 92b8 6880 
08379 

00380 02b4 bSbc T_exp 

00381 02ba 6618 

00382 02bc 6100 
80383 e2c8 6588 
00384 

00385 02cc=4e48 

00386 92d0 6000 
08387 

80388 02d4 2849 T_oth 
88389 02d6 4e75 Rl^exit 

00390 
88391 
80392 
00393 
00394 

00395 02d8 

00396 02dc 0c 18 
08397 02e0 6618 

00398 82e2 6180 

00399 02e6 6108 

00400 02ea 0clS 
00481 02ee 6692 

00402 02-f0 4e75 

00403 02-f2 083c ArQ-ei*r 

00404 02+6 4e75 
00405 
08486 
8048? 
08468 
80409 

00410 

00411 02+8 41ee 

80412 02-fc 2248 

00413 02+e 10+c 

88414 8382 5288 



tion 



tion 



tion 



tion 



crap.l «'EXP •'.d4 

bnetS T_oth 

bsr P_expres 

bcs Rf_ei{it 
Prec_load 

tcall T*Math2.T*Exp 

bra R-f_exit 



Calculate aroument o-f -func 
On error , exit ReacLf ie 



tiuii 



move. 1 
rts 



al4,a8 



Restore pointer; no -function match 



P_expres 

Calculate expressions within parenthesis 



bsr 

cmpi .b 
bne.s 

bsr 

bsr 

cmpi .b 
bne.s 
rts 
ori .b 
rts 



Skip_bl ancs 
»^(' .<a8)■^ 
ArQ_err 
Express! on 
Skip_bl ancs 
«')',<a0)-f 
Arg-err 



Skip blancs 

( ? 

No, aroument error 
Calculate aroument 
Skip blancs 
) ? 

No, argument error 



#%808880B 1 ,ccr Set carry 



Wr_Rea1 

Convert real in d8 
First position is 



,dl to ASCII string 
tor sign 



lea 

move . 1 
move.b 
addq. 1 



I0_Buff<a6J,«« 
ae,al 

<a8) + 

«l,a8 



Save start o-f mantissa 
Siqn -field 

Save place -for decimal poi 



nt 



20 
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expression .a 

expression - subroutines 
88415 8384 243c move.l 
838a«*B4t teal 1 

X T*DtoA gives the mantissa in the -format 
5( we adjust the output to n.nnnnnnnnn 
X The exponent must bt lowered by ont altefwarcls 

838e 
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88416 
88417 
88418 
88419 
88428 

88421 
88422 
80423 
88424 
88425 
80426 
88427 
80428 
00429 
00438 
80431 
00432 
00433 
88434 
88435 
00436 
00437 
00438 
00439 
00440 
00441 
00442 
00443 
08444 
00445 
00446 
00447 
00448 
00449 
00450 
00451 
00452 
00453 
00454 
00455 
88456 
88457 
88458 
88459 
88468 
80461 
00462 
80463 
88464 
88465 
88466 



»$7ff+808a.d2 Format 
TfMath 1 ,T*6toA 



nnnnnnnnnn 



6a84 bpl.s Wr_mpos 

0310 12bc move.b <al) 

0314 1150 Wr_ropos move.b (a0>,-l(a8) 

0318 18bc move.b « . ,<ae? 

831c dHc add.l Sjg^af ..^ 

8322 18-fc move.b #'E',<a«>* 

0326 2248 move.l a0,al 

0328 18-fc move.b #+i(a0> + 

032c 5380 subq.l |J^d8 

032e=4e40 tcall T*Math 1 ,T*LtoA 

0332 6a04 bpl.s Wr_epos 

0334 12bc move.b ♦»'-', <al) 



Positive mantissa 
Adjust sign 



Shi+t first digit 
Write dicimal point 
Now a8 points after 
Exponent field 

Save start o-f exponent 

Sign o-f exponent 

Adiumt «j«pi(l«ttt imf tirst 

Positive exponent 
Adjust sign o-f exponent 



last digit 



di git 



0338 5289 Wr_epos addq.1 l»l,al 
5« T*LtoA 



X a 8 poi 

033a 
033c 
033e 
0340 



nts 



ves 
s to 



10 digits; we want a three 
start of exponent-string 



al now points to -first digit of exp 
digit exponent; 



5e88 
12d8 
12d8 
12d8 



0342 
0346 
034a 

034c 
0350 
0352 
8354 



12fc 
12fc 
4211 

41ee 

700 1 

2289 
9288 



e356=4e48 
835a 4e75 



addq. 1 
move.b 
move . b 
move.b 

move .b 
move.b 
cir.b 

lea 

moveq 
move . 1 

os9 
rts 



835c 
0368 
0362 
0364 
0366 
836a 



0cl0 
6604 
5288 
60f6 
023c 
4e75 



Skip-bl ancs 



Sk_exi t 



88888360 



cmpi .b 
bne.s 
addq. 1 
bra.s 
andi .b 
rts 



tt7,a8 

(a0)-^, 

(a0) + 



(al) + 
(al>•^ 
(aD-t 



first significant 
move digit 
move digit 
move digit 



digit 



#*0d,(al)-^ add 
♦»*0A.<al3!* add 
<al> add 

lO-Buff <a6) ,a0 
#Out_ch,dB 
al.dl 
ae.dl 

I«Mrite 



CR 
LF 

End-of- 



Poi n te 
ath_number 
Calculate number 



string 
IO_Buff#r 

of bytes 



\';a0) 
SK_exi t 
<tl,a0 

Skip-bl ancs 
tt%11111118,ccr 



a8 points to blanc? 

no. exit 

yes, skip blanc 

and skip following blancs 

Clear carry 




mm-mmm 

By : Bemd Daa, fiemany 

Do yea already know? The ICl af the bMni is MriiiM 
Nithmit poNer swpply! You don't believe it? That i, righli 
I do not either. Connect fin 20 with la-c froa the 
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lOREM 
20REM 
30REM 
40REM 
50REM 
60REM 
70REM 
SOREM 
90REM 
lOOREM 



*** MACHINECODE DUMP *** 
(HEX and ASCII) 
VI. 7 jLine 9 1986 
by b„Voortman 
BeatriMweq 28 
3253 BB OUDDORP 
The Netherlands 
Tel . 01878-3113 

1 lOMOifiAt *FX5, 0 
1 20Li nm^^Oi Ehd=?<72 
130Dump^&:80 
i40oswrch=?/.FFEE 
1 SOPheK =?<B545 : REM Print 
160Phexsp'=?iB562! REM Pr i nt 
170Pnewl »^e2i*REM Print 
I SOPOR pmi^s^O TO 2 STEP 2 

fOOtOl^t pass 
2 1 0 . i n i t 
220LDA PRNT 
230BEQ initS 
240LtA mtO 
25mm L®rrght 
SAOUIA #2 
27GJSR oswreh 
^m»' start 

^m^m #14 

SIOJSR oswreh 
320LDA #8 
3303TA Lenght 
140. start 
350LDX #6 



*** 
*** 
*** 
*** 
*** 



PPNT=:S<74: Lenght =.!.i75 



A as 2~diqit hev 
A as heK number n 
CR/LF 



\Printer or screen' 
\only screen 
Mnit -For 16 bytes 
\and stor# 
\Pr i nter 
\on 



\Code -for 
\p i?.qed mode 
\Set counter 



number 
space 



360LDA 
370. 1 

390 J SR 
390 DEX 
40OBNF 
41 OLD A 
420TAX 
430. 1 oop 



#32 



oswreh 
1 

#0 



PheKsp 



Lenght 

1 OOP 

Pnewl 



440 J SR 
450 I NX 
460TXA 
470CMP 
480BNE 
490 J SR 
SOO. newl i ne 
510JSR Pnewl 
520BIT 
530BMI 
540LDA 
550 J SR 
560LDA 
570 J BR 



\Print 6 
\spaces 



\X=X-1 
\X>0, next 
\ Print 00, 
\Copy to X 



\X=X+1 
\Copv to A 
\A=LenQht? 
\no, print 



01 , etc* 



next 



?^FF 

escape 
Li ne-i-l 

Phex 
Li ne 
Phexsp 
580LDA #32 
S9-0JBR o s w r c f" I 
iOOLDX Lenqht 
610LDY #0 " 
620. dump 
630LDA (Line), 



640STA 
650JSR 
660 I NY 
670DEX 
680BNE 



Dump , Y 
Phexmp 



dump 



690. asci 1 
700LDX Lenqht 
710LDY #0 
720LDA #32 
730JSR oswreh 



\in€©rt^ lin^ 

\Start on new line 
\check -for Escape 
\handle it 
\Pr i nt 

\ memory ailclress 

\o-f 

\ cur rent lin© 

\Pr i nt 
Epace 
\Set 

\ counters 

Y\t3et byte o-f 1 i n© 
\store for dumping 
\pr int in hex ^ mpace 
\Update 
\ counters 
\not zero, next 



\Set 

\ counters 
\Print extra 
\ after hex 




Tips and tricks for tJa ll^iCX)/ Jj*^ 

By C.J. Boltjes 
Nw. Plantage 9 
2611 XH Delft 

If you want to run your computer on 2 MC a 
parameter in a 10 milisecond loop must be 
changed. $267B contains this parameter, 
which is $31 or $62 for 1 MC and 2 MC res- 
pectively. To avoid manual adjusting of this 
parameter if you use an other speed than usual 
a little routine is developed which can be 
referred ia ^km bootroutine, and vill select 
thm right lilipis. 



MiO- 



m •lEoio 
M -ici+i 



CONTROL FLOPPY 



space 



A23i 


SPEED 


LDX 


#$31 


;LOAD 1 MC PARAMETER 


AOOO 




LDY 


#$00 




A231 


SPEED 


LDX 


#$31 


;L0AD 1 MC PARAMETER 


AOOO 




LDY 


#$00 


;INIT WAITING LOOP 


A902 




LDA 


#$02 


;IK1T REGISTER MASIC 


2C10E0 


SPEEDl 


BIT 


ACR 




FOFB 




BEQ 


SPEEDl 


;=>NOT EMPTY TM Ri©, 


8D11E0 




STA 


ADR 


;SEND CHARACTER 


2C10E0 


SPEED2 


BIT 


ACR 




FOFB 




BEQ 


SPEED2 


;=>NOT EMPTY TM REG. 


8D11E0 




STA 


ADR 


;SEND CHARACTER 


C8 


SPEEDS 


INY 










BIT 


ACR 








BEQ 


SPEED3 


;«>NOT EMPTY TM ^EG 


COOF 




CPY 


#$0F 




3002 




BMI 


SPEED4 


;=>1 MC 


A262 




LDX 


#$62 


;LOAD 2 MC PARAMETER 


8E7I26 Sma)4 


STX 


SPmR 


•SET PARAMETER 


60 




RTS 
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740- 1 Qop2 
750LDA DLimp,Y 
760CMP m^.JF 
770BCS repl ace 
7B0CMP .#&20 

800. rep lac* 
810LDA #&2E 

820. over 
830 J SR oswrch 
840 I NY 
850DEX 

860BNE loop 2 
870. next 
880LDA Lenght 
890CLC 
900 ADC Line 
910STA Line 
920BCC checks 
930 INC Line4^1 
940, check2 
950LDA Line 
960CMP End 
970BMI newline 
980. check 1 
990LDA Line4-1 



\Load character 
\A < ?y.7£ ? 
\no 

VA > S^IF ? 
\^fmm^ 'Wteip over 

\Load code " • ' 



\Print it 
\Update 
\ counters 
\X fiat O, 



\L#aci l#nght 
Xctmrnr carry 
\add td luine 
\store it 
\Check Line 
\Update Line+1 

\Check Line 
X-f or 

\Line<End? 



next character 
oi I ine 



\-for 

\Li!ie^i<lnd^l? 
\Line+l=End+l? 
\Line-+-l >End+l? 



lOOOCMP End+1 
tOlOBMI newline 
i020BEQ end 
1030BCS end 
1040;. escap#^ 
lOSoaSI^ erid 
IQ&OBRK 
I070EQUB If 
i OSOEQUS '^ESCJ^W** 
I090EQUB 0 
l iOO - 
iilO.end^ 
1120JSR Pnewl 
1130LDA m 
11 40 JSP o«l!ircN 
1150RTS ' " 
il 601: NEXT 
1170CLS 

i 180INPUT"Startaddress 8/."start* 
1190ST=EVAL<"S.<"-i-start$) s !Line«ST 
ii^OINPUT"End address &"e*5i«iS 
iSiOeN«:EVAL ( "?<"+end*) : ?iSni«tl^ 
1220IF EN<BT G0T01170 
1230PRINT"PRINTER on (1) txr m44 (0> 
1240Dy-^GET~48: IF DX^l THEN ?PRNT=Dy.: *FX5, 1 
1250 IF D-/>1 MQDE3:PRINT-- : ELSE M0DE6 



\Stop printing 
\Generate 
\^ Escape^ error 



VNew line 
\ Printer 



Tuning procedures for Octopus interface 
card. Coen Boltjes. 015-136812 

Although the tuning of the interfaces on 
the interface card of EC2 are not very 
critical, a description of the tuning 
procedures is described below. 

The tuning of the KIM-interface: 

-Record modulated logic one's and zero's 
on a cassette. When you use the Marc 
Lachaert KIMTAP utilitys load the code 
in your system and change the follovring 
locations. 



D2DA LDA #$55 
D2D9 JMrtfiiJi 



A9 55 
AC D4 D2 



mmkm' pl^ ,02SJ| nv4 record 
. ^-^^ iior l&i^ ir^tes on a 



Start th 
the mtp 
tape. 

Note: your clockspeed must be 1 MHz. 
-Replay the recorded tape and tune PI so 
thai on an osciloscope the signal on pen 
7 of IC 14 has the folowing shape: 



Taist PLL is nOw optimal tuni&d. 



The tuning of the BASICODE-interf ace : 

-Remove IC 10 and connect pen 6 of the 
foot of IC 10 to logic zero. Now record 
the 1200 Hz output signal for some 
minutes . 

-Connect your osciloscope with pen 8 of 
IC 17 and replay the recorded tape. Tune 
P3 so that the pulse width is 3/A of the 
pnlse period. 

Your MKV is nov optiixial tunt^* 



^mwy^p 1^ i4sFRINT"HEXDUMP 



New OHIO DOS command. Coen Boltjes 

This command enables the user of the OHIO 
DOS-extentions of Cert Klein (issue 39) 
to change the track range of previous 
defined files. The command RD roust he 
added to the command table. 



20 91 E4 REDEF 
84 

29 F8 
85 E6 
4C DC 12 



JSR FINDFILE 
TXA 

AND #$F8 
STA TBWi 
JMP OKA 



;FIND FILE 

;GET START 
MM START 
;m. TRACKS 
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mUUS *TASC* (APPLE) 



Rttud Bphof f 



Even een reactie op het artikel in 6502 KENNER 43 (bli. 25) over 
het opstarten van TASC gecoBoileerde prograiia's. Ten eerste tordt daar- 
in opgeierlct dat het voor APPLE bezitters zeker de loeite waard is oi de* 
se coipiler van Hicrosoft aan te schaffen. De naai Hicrosoft staat hiir 
zeicer garant voor kvaliteit, want ik heb al heel vat oivanrijke prograi^ 
■a' 8 let TASC gecoipileerd zonder ooit een bug aan te treffen ! Voor ge^ 
bruilt€^« van het nieuve APPLE DOS, "PRODOS* genaaid, is die bug er echter 
wei eaiif Viior een: Het verkt niet leer. Dat koit oidat APPLE (Het loet 
laar eens gezegd) er in is geslaagd oi zijn PROfesio&al DOS te voorzien 
van een link naar de basicinterpreter die daar op een andere dan de tot 
nu toe gebruikelijki pethode op CfB!«*0 foor DOS ocmtroleerd. Het gevolg 
is dat printen fiB 1m CTRL-D niet wmt mM wstat isonpllmren van IKiS- 
I/O oniogelijk is geworden. Dit gecoibini^ de ol^tisGiii oeheiqen- 
Gonsuiptie hebben lij PRODOS doen veggooiai. ^mm TAsC iet PBODOS dus. 

Dan de eigenlijke reden van deze reactie: Het opstartprobleea bij 
oicoipileerde software. & zijn nanelijk beel wat slipelere letiiodea be* 
dackt oi dit te v^ezenlijkeii: 

A* BASIC dplossing ( Stel dit uv progranna de naan PGH ^aagt) 

100 RU$=CHR$(4)^*BL0AD RI»ITIHE">CHR$(13)>ClS$(4)«*6Bni P6R" 

110 PRINT R0$ 

B. Hachinetaal oplossing (Uv gecoipileerde program beet veer PGH) 
0^ uv TASC diskette^yindt J^een tekstfileMRjeXIce^ie hi^ gebniUm^ 



Tik in 'direct node 
zal afdrukken: 



BLOAD P6N en na het laden IBI eierni de APPLE 



A6064,L. 



Ve noteren nu de afgedrukte lengte L en tellen daar 4016 bii 
ve nog: BLOAD RUNTIME en ve aaan in de lonitor oi op adres $01 



Itt 
een 

reete JHP te zetten: JMP $17$0 ( 800: 4C BO 17 ) en've schrijven m pre- 

fratia veg net BSAVE P6H,A204(trL vaarvoor ve achter L le bordmde 

engte invullen. Voortaan dus gevoon in een keer BRDM PGM 



C. HELLO progranna BRUH (Slave diskette) 

Ja hoor dat kan heel eenvoudig. Ve gaan in de lonitor en verandc^en 
een enkele locatie in DOS 3.3 nanelijk $9E42. Daar staat $66 ^ daarvan 
naken ve $34. Hu gaan ve net CIRL-C terug naar ^IC m le tiMM 

INEV 

UNIT PGM 
IDELEIE PGM 

Vaama ve PM faeenstelto in vegsd^Jv^ ilt MJ lethode B 

D. HELLO progranna BRDH (Master diskette) 

Na aebruik van naster create gebruiken ve e&k disk nonitor on het 
onder B. genoende bvte rechtstreeks op schijf te v^Mderen. De locatie 
op schijf ii tn^ 9 sector ^ ]^ $42 




How to use the Gert Klein OHIO 
DOS-Extentions (issue 39) on the 
Octopus . 

Coen Boltjes. 015-136812 

Originally the extentions were located 

l&t^tlm. In this e^eattiple me will tuse 
the locations starting Kt 

1) Copy system-disk 5a, and boot with 

this disk. 

2) AssembJe the source with origin $D000 

3) Save the extentions on track 14 on the 
new dlak. (SA 14,l«DOQ0/a> 

4) i^i m 'msmf ilrtctpry frdm dli^, 
<M 8^ emmr tfte monitor . 

(m M ) 



5) Ghaftge thfe next Xoeattq^: 

2E79 4F 53 36 35 44 33 00 14 

2A4B 20 12 D5 

2A8B BD 00 DO 

2A95 BD 01 DO 

2A9C BD 03 DO 

2AA0 BD 02 DO 

6) Return to the DOS-Kernal, (.0S65D) and 
save the directory (SA 12,l«2£7^/l) 

and save the adjusted track' 1* - {SA 

01,l=2A00/8) 

7) Enter the new bootroutine with one 
adjustment. The LDA #$E0 must be 
change in LDA #$D0. Assemble this 
source but locate the object code in 
an other location. For example $A200. 
When you use the OS I asseiabler y#ti can 
use the M8000 option. 

8>Load the trackO R/W option (CA 

0200-06,4) a]\d ^tmxt tl» prjiigram (GO 
mm) IkmA t^ie O Isko $mm (R8200) 

* . ' . I ' ' •' 

9) Enter the monitor |ii M) atld WOVe the 
new Boot-routine into the trackO copy 

(8200=A200,A300). 

10) Return to DOS-Kernal, (.OS65D) and 
restart the trackO R/W program (GO 
0200). Save the new trackO on disk 
(W8200=2200/8) and leave the program. 

Your disk is ready now, 

l^hen you use the new disk you will 
notice that after a DIR or HOME command 
the drive will be m%m^A* To deselect 
the drive we adjust thu old HOME 
routine, and locate it at the old 
command table area. Boot with the new 
disk and adjust %M nmt locations. Then 
return to the kernai -w&m track 0 
^d track 1. 

2663 4C 30 2E 

2E30 20 54 27 

20 8A 26 

20 66 26 

4C 61 27 
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Bgali»Ue V9n de gesultat en van ^ <^^jgit 

(For a wry c>f the results of «^ ^ 
sion in English, see at the end of the article). 

Allereerst een dankwoord aan al diegenen die de moeite 
hebben genomen de enquete in te vullen en aan het bestuur 
te retSurneren. In totaal hebben 68 leden de enq^e 
inaevuld. Bij een totaal ledenbestand van 380 betekent 
dit, dat 18 p^ocent van de leden heeft deelgenomen. 
Oit het buitenland Icwamen 11 reacties, 1 uit Denemarken, 1 
nit Frankriik/ 1 uit Portugal en 8 uit Belgie. 
S Engelstalige enquete werd door 1 deelnemer aangevraagd 
en ook teruggestuurd. . 
Het verloop van de binnenkomst van de ingevulde J«^- 
lieren (slechts vier mensen mrnkXen een kopie en getoiiK- 
ten deze) was als volgt: 

Zoals te zien is, kwamen de raeeste 
reacties kort na het verschijnen van 
de enquete binnen; de vierde week, 
»halverwege de geldige inzendtermi3n 
droogde de stroom reacties vri3wel 
op. Daarna volgde een kleine opleving 
in week 5 gevolgd door een constante 
doch kleinere stroom in de laatste drie 
weken. Drie reacties kwamen ruim na de 
sluitingsdatum (1 oktober) binnen. 
Deze zijn wel meegeteld. 

Dan nu de resultaten bij de beantwoording van de vragen. 
m te beginnen heeft geen enkele deelnemer de enquete 
anonieni iSestuurd, ofschoon dit was toegestaan. Ofschoon 
de h^^^^^ m^mmomm duidelijk vrouweli^ke 
kenmerken ^ c» aangaande dit aspect n^^^ 

representati^Lte alle^ 
ofschoon 1 ieeliteBieir hiir twijielde en beide hok^ea 
ingevuldl 

Aanqaande de opgegeven beroepen kan worden opgemerkt dat 
10 personen no^^studeerden . Indien er werd opgegeven wat 
er gestudeerd werd, had dit in aUl^, jevallen sterk met 
computers te maken. (electrotechniek, informatica) . 42 
deelnemers gaven een beroep op dat zeer waarschijnliDk met 
computers te maken heeft, of in ieder geval van technische 
aard was. 5 deelneroers gaven geen beroep op. De overigen 
(9) hadden een beroep van niet-.technische aard. De club 
blijkt huisartsen, tandartsen, advokaten "Jf ic^' 
ambtenaren en agrarisch georienteerde leden te hebben. 



ieek I 


Aantal 


c 1 ! 


12 


2 ! 


8 


3 


13 


■ 4 


2 


5 


12 


6 


I 7 


c 7 


I 7 


8 


I 4 


-. -m 


1 3 



De leeftijdverdeling is als volgt; 

%miet\ 35 en 45 jaar 
tussen 45 en 55 jaar 



jonger dan 15 jaar : 5^ 
tussen 15 en 25 jaar 5 14 
ttiaaeii 25 m 3S |aat i 22 



22 
6 



tussen 55 en 65 '|mhp f 
ouder dan 65 ja«f ' ' ^ %■ 



Hieruit blijkt, dat tweederde van de ledell «ieh 
leeftijdsgroep van 25 tot 45 jaar bevindt. 
NU we toch met de factor tijd bezig zi^n: vraag 2B over ^ 
tijd dat men een computer bezit, werd als volgt beant- 
woord: 



ifeorter dan een jaar 3 
1 a 2 jaar 5 
3 4 4 jaar 24 



5 4 7 jaar 



29 
4 



Uit de verdeling blijkt overduideli jk dat het overgrote 
deel der clubleden kan worden aangeduid als 'ouwe rotten 
in het vak' . Er zijn opvallend weinig nieuwelingen, ter- 
wijl er nog steeds mensen van het eerste uur in de geie- 
deren te vinden zijn. 

Van de 67 Nederlandstalige reflectanten bleken er 44 (66%) 
qoed Enqels te kunn«i Immn^m^Sf^' 22 (34%) vofKien dat 
lij dit redelijk kdftden. ^^ts 1 lid ble^ geen En^ls 

De eniqe Engelstalige reflectant bleek absoluat geen 
Neder lands te spreken. 



De tweede vraag ging over het computer systeem dat de 
leden gebruiken. De verdeling was als volgt (het a^tal is 
hogir dan 68 daar een aantal (44) deelneroers raeer dan 1 

computersysteem blijken te bezitten). 



6502-computers : 

Junior ^ ^ 35 

OCTOPUS/SAMS0N65/EC65 23 



Andere Computers: 

Commodore C-16 
Corrroodore Plus/4 
Atari 520ST 
Atari 600XL - 
OS I Superboard 
OSI CIP 
OSI C24P 

MC 68000 (68000) 
Elektuur EC68K (68000) 
SC/MP (SC/MP) 
Robby (6809) 
Zelfgebouwd 6802/6809 
MC CP/M (Z80) 
MPF II (Z80) 
Philips P2000T (Z80) 
Philips P3100 (8086) 
Sinclair ZX81 (Z80) 
Casio PB-410 (???) 
Sanyo MBC-85/2 (Z80?) 
Sharp MZ-80K (Z80) 
MSX 

IBM-PC Kloon 



DOS65 1| 

Commodore 64 7 

Acorn Atom 5 

Acorn Electron 4 

BBC 3 

KIM 3 

Apple ][ 3 

SYM 2 

PET 2 

CBM 30XX/40XX/8032 2 

Geheel zelfgebouwd 3 

Proton 1 

AIM 0 

In totaal: 143 Computers. 
23 stuks hebben een andere 
CPU dan een 6502 of aan- 
verwant. Meer dan de helft 
van de deelnemers heeft een 
Junior/ al wordt deze in 
sommige gevallen nannell^ j^ 
meer gebruilct. 

Eenderde van de deelnemers gebruikt OHIO OS-65D op de 
standaard configuratie die oorspronkeli jk onder de naam 
OctODUS werd gepubliceerd door Elektuur. De tegenhanger, 
DOSeST wordt door een kwart van de deelnemers gebruikt, 
waarvan tenminste 1 met een Junior, de rest met de CPU- 
kaart configuratie. 



Samenhangend met de compiSfer il het grating ^st^ ^t 
gebruikt wordt. 



(Z80) 
(8088) 
(8086) 



OHIO OS-65D 27 
'W^S^' ' • vJ I i^ 

Ifcfeh van ^mMiism * & DOS 0 

ROM-based 25 
MS-DOS 4 
Zelfgeroaakt OS 2' 



Proton DOS 1 
TOS (Atari 520^) 1 
Apple DOS 1 
MPF-DOS 1 

cp/n 1 



Totaal 



79 



Ook hier is de som groter dan 68 vanwege de meerdere 
computersystemen die de meeste deelnemers gebruiken. 
Onder de noemer ROM-based vallen in principe alle 
coitoiit^ die geen schi jfgeheugens hebben, alsmede alle 
Comnodore machines met disks; deze hebben het DOS m ROM. 
Het blijkt verder, m ^fma^t^ ^ junior computers 

moeten zijn, die ondier aS-65D draaien. Dit operating 
systeem wordt door meer dan een derde van de deelnemers 
qebruikt. . ^ , 

D0S65 maakt 20% van het totaal uit. Het tweede en ook 
ouder e in de club ontwikkelde WS, dat van Koen van 
Nieuwehove, blijkt geen gebruikers te hebben gevonden. 
Voor zover dit uit de formulieren was pp te ngken, is l 
deelneiner €ie gaat oiBSC*iakelen van OHIO ©S-6SE) naar E>0$^- 



Ymmn^ittcsoeSSm pci jzen enquete. 

10 sets van 2 5.25 floppy disks gingen naar: 

K.J. A. Koning, Maasland 
G.J. van Nor el I ^pe 
B.J. van Bemnel/ llie«WkGOp 
R. Handera # Wag^inaen 
A. v.d. Beukelf Delft 



C. Kleipool/ Cogolin/ Frankrijk 
dhr. van Huff el/ Brusseli Belqie 

G. Vandenbulcke, Brugaei Belgi^ 

H. A.J. Quast/ Huizen (NH) 
M. Leeiaana# Gdegein# Belgift 



KENMER 



De volgende materialise jSEiip^ oaken deel uit van de systemen 
van de deelneroers: 



Hbx display ^ <:^fise^iibe^d 34 
Monitor WCIU. to«tSiM«)bord 62 

11 
5 
46 
11 
54 
1 
4 



Terminal 
Teletype 
Matrixprinter 
Daisywheelprinter 
Diskdrive(s) / 5.25 inch 
Diskdrive(s) , 8 inch 
Diskdrive(s) , 3/3.5 inch 



Winchesterdisk 2 

Cassetterecorder 47 

Modem 20 

EPROMprog rammer 44 

BASICode interface 2 

Kleurenmonitor 1 

RTTY morse decoder 1 

FORTH I 

Muis 1 

Sprekende kaart 2 

Nagenoeg iedereen (91%) communiceert met zijn systeem via 
monitor met een typeroachine-achtig toetsenbord/ de 
rest doet dit met een terminal, hetgeen vergeli jkbaar is, 
Ook hebben de meesten (87%) de mogelijkheid met schijven 
te werken, waarbij 5.25 inch nog steeds verreweg de popu- 
lairste maat is. Alle single-board computers (Junior,/ SYM 
en KlH) blijken te zijn voorzien van een ^^mmeiiis^me&gmSmE- 
als O^lagmedium. Slechts 2 deelnemers kunnen izich de I'llgF 
van een harde schijf permitteren, Bijna tweederde van <^ 
deelniSraers kan zijn eigen EPROMs programmer en. 
§4% van de deelnemers heeft tenminste 1 printer/ 
f«t matrixprinter* 

De computers van de deeln^ners worden loeestal gebruikt 
voor het ontwikkelen van aommmj. met tekdtiipefwetlcing itls 
qoede tweede: 



de meeste 



A* .AStratie/ bedri jf 5 
Adninistratie/ 14 
T-icstverwerkir^ " • ' 39 
Bestandsbeheer' ' 15 



Studie 

Niet ingevuld 



Ontwikkelen van software 57 
Ontwikkelen van hardware 25 
Besturingen 15 
Spelen van spelletjes 2 
iM^mmsm van de buunoan 1 



5/6 van de deelnemers gebruikt zijn systeem om software op 
t' chr^*-^"en. Dit houdt in, dat de meeste systemen 
te 'ruikt wooden: er wordt niet alleen bestaande 

gebruikt maar vooral eigen nieuwe software 

I ^ ti'tti^r imponeerde lievef zijn buurvrodw (offiaioon 

ni€ ist ) : ik kan hem geen ongelijk geven. 

j3 we .-.liie*:/ let welke hulpmiddelen al die software 

fesia^ jrdt. mo« uit de derde vraag blijken* Pe. eer«te 

Vraag diende om het niveau waarop het gemiddeliil '^Ctlt^id 
zich aangaande software bevindt, te bepalen. 



Alleen hardware % 
Kopieert alleen 1 
Vectdetert sof t^re 1 



Schrijft af en toe zelf 37 
Schriift het meeste zelf 24 
ic^riift &11&S zelf 4 



Bij de beoordeling |iyii^i^Bi$ vraag is er vail iii^||||faan dat 
indien een bepaald arkv/Ctatd werd aangekruist/ dat dan ook 
activiteiten op de 'lagere' niveaux ontplooid worden. 
De antwoorden op deze vraag weerspiegelen inderdaad het 
actieve beeld van de club uit de vorige vraag: vrijwel 
iedereen schrijft a&^mmm*; - 1 . 

In welke taal Noi Men dat sehri jven gebeurt bli j!^)^' %i 
liggen: 



Hex 6 
Assembler 36 
BASIC 21 

mm 1 



PASCAL 0 . 

C 0 

dBase III 1 

Hangt van probleem af 2 

Niet ingevuld 1 



De helft van de deelmmers blijkt voomamelijk in 
assembler te programmeren , over eenkoms tig het karakter van 
de club. Ondanks het feit dat voor sommige systemen een 
legale BASIC niet beschikbaar is, programmeert een derde 
van de deelnemers voomamelijk in deze taal. 



Naast de meestgebruikte taal Mijk«ii: 4k ^^lixaneiriBi de 
volgende talen te beheersen: 

BASIC 

Assemble 
Hex 

PASCAL 
FORTH 
FORTRAN 
COBOL 

BASIC is hier winnaar: 88% beheerst het. Op grond van 
eenvoud en beschikbaarheid is dit qeen vreerode uitkomst. 
78% van de deelnemers beheerst (een) assembler. 
Een derde van de deelnemers blijkt PASCAL te beheersen 
ofschoon niemand het als hooi^mcftmmew^sml g«»bmi^. 



&3 






53 


Algol 60/68 6 


DIBOL 1 


41 


dBase 11(1)3 


RTL-2 1 


22 


COMAL80 2 


APL 1 


17 


Symphony 1 


LISP 1 


9 


PLl 1 


LOGO 1 


9 


Modula2 1 


Niet ingevuld 2 



Melhefa en vrijheid 

Compactheid 

Samen met FORTH kan alles 
Computer geschikt 
Ken de rest niet goed 
Schrijf op OS niveau 



26 
20 
1 
1 
2 
1 
1 



FORTH 6 
Kompakt/ snel, flexibel 1 
@e9dy.Ht voor (^pg^ioriiigen 2 
Gestructtireerd 2 



FORTRAN 

Meest me 



beJcend 



BASIC If 
Enige dat bescliikbaar is 4 

Snel resultaat 3 

Lekker uitgebreid 1 

Goed te begri jpen/leze 1 

Geroalckelijk bruikbaar 1 

Iedereen heeftAent het 2 

PASCAL 5 

Superieure structuren 2 

Geen reden opgegeven 1 

Krijgt er les in 1 

GedW§!9|iij 1 

c . ' ~ t 

<S^^£)cer9virien<ibl|j|k 1 



Geen voorkeur * 3 

Appiic2lkti^afftankeli3^ 3 



dBase III 

Krachtig 

Niet ingevuld 8 

Het meeste wordt in assembler geprogranineerd: hiervoor heb 
je uiteraard een Mpoitl^. • J)e mmm of er vc»e»rkeur 

voor een bepaalife 'mm^m^^ Wm* Im^m^. de V^lgeride 
bloemlezing op: 



Niet ingevuld 
Micro-Ade 
AS uit DOS65 
OHIO-assembler 
Moser (ASM/TED, MAE] 
Geen voorkeur 
Geen er^ar ing 
Fate 
Merlin 

imm 

Oj^allmndi if^y dat in ongeveer een derde van de gevallen 
waar een vborkeur wordt uitgesproken, deze een assembler 
geldt/ die men als enige kent. 

Een kwart van de deelnemers heeft de vraag niet beant- 
woord/ eveneens een kwart gebruikt Micro-Ade, waarvan de 
qlub de rechten bezit. De assembler die jarenlang als 
state-of-the-art te boek stond/ Moser/ heeft slechts een 
geringe aanhang. 

Eenderde van de DOS65 gebruikers gebruikt de nieuwe assem- 
bler AS. Merkwaardig genoeg zijn er twee DOS65 gebruikers 
die msme :j^m^mm:en boven AS/ ondanks een gigantisch 
mli^I ^ ifti^^id en het bestaan van een Moser naar AS 



16 


Enige 






Enige 




Devpac ST (520ST) 


1 


0 


15 


9 


RAE-1 


1 


1 


8 


0 


CBM-assembler 


1 


1 


6 


3 


Micro-ware 


1 


0 


4 


0 


Monitor CBM-C16 


1 


1 


4 




Acorn Electron 


1 


1 


3 




Profi-Ass 


1 


1 


2 


1 


Toolkit 


1 


0 


1 




mm 


1 




2 


6 









Verantwoorx3ing prijzen enquete. 

10 BPHOHa 2764 c^ngen naar: 

B. van Tiel, Gouda 
G.P.M. Stappers, Overlooli 
S,J. Voortman/ Ouddorp 
P. de Yiaamc, Veldhoven 



L.H. van Velzen, Zeist 
H. Speksnijder, Rotterdam 
C. Boltjes/ Delft 
f • Oudenbosch 
^Mm van Dongen, Rotterdam 



^2 
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Met de kermis van andere CPU ' s en het vennogen oro dezftv in 



Niet ingevuld 

Z80 

6800 

(Soen andectt 
6809 

68000 

8086/8088 

2650 



23 
16 
12 

6 

5 
3 



8085 

SC/MP 

IBM-370 

PDP-ll/VAX-11 

Ja, geen opgave 

Nagenoeg alles 

Net gedald &Llds 

1802 



Gaat men ervan uit/ dat niet ingevuld 'nee' betekent/ dan 

iDeheerst de helft van de leden alleen de 6502. Dit ondanks 
het felt dat het relatief eenvoudig is een andere '6 '-CPU 
te leren kennen als men eenmaal de 6502 kent. De Z80 
a^rt bij emx Ima^ mm ^%$m0i^ 1^ de 
il^kkring. 

i#i fiNfgl men in iia<;hindt9al is voi^ men; 



Slecht 

Ik kan me ericiem. 

Voldoende 

Zk. hm m in 

Niet ingevuld 



20 
20 
2 



59% van de deelnemers geeft zichzelf een voldoende of 
hoger als het om machinetaal gaat. Slechts 10% vindt dat 
zij het slecht doei^ Jlf^ ^UjlEi^ in^^^ in m^i^. 

te programftereny 4 'mmm ii mm: met een Coinnddir^' 

machine. 

Zonder software geen hardware ^ en 2mdersom. De vierde 
vraag noest duts m^'mm li^u^dime gaan* AlXfflE»Bts-«t het 
niveau waacc^ laeni'iiMf. -ilfl .mll ' 

Ik koop alles 0 It . 

Bouw wel eens een print je 12 t • 

Systeem gebouwd 17 
On twerp t hardware 34 
Heeft systeem zelf ontworpen 5 

t)e helft van de deelnemers ontwerpt zelf hardware # en kan 

dus als electronicus worden aangemerkt. leder^a. Meet aaet 
soldeerbout en schroevedraaier om te gaan. 7i^t ^g^riSt 
zelfs complete systemen beginnend met niets. 



Ofschoon iedereen kan solderen en schroeven/ 
helft assemblagewerk voor de club doen: 



wil bijna de 



Nee 37 Ja 



29 Niet 



Met de printjesfaibri^m is liet so gesteld: 



9 Etst 5 

27 Plakt en etst 24 

2 CAD/CAM 1 



Nee 

Te veel werk 
Plakt 



9 deelnemers (13%) willen en kunnen zelf geen print maken. 
Sljna de helft kan dat wel, findt het teveel werk, De 

test (ook bijna de helft) is acti#f bezig. 



De belangri jkste ontwerpgrondst©f> 
krijgt de volgende behandeling: 



Begrijpt het niet : 
Begrijpt het meeste: 



1 

31 



Pin-out: 

Begrijpt alles: 



3 

33 



Ook hieruit blijkt opnieuw, dat we een club van 
electronici zijn# vrijvwl iedereen i«eet met em d«|i|fiiibp^ 
em t e gaan . 

il^ MiUfi^i jkste gezicht naar de buitenwereld is voor de 

Ih^ ei^lad/ De 6502 Kenner. 
0£sei«ocm M \^ai^ anders getiteld ^was/ fin<| 
viraag hi««>ver. Mlerts^t de wi^aslwdnf voor J»st US!? 



1 2 
7 24 



9 28 
9 3 



10 1 
niet 7 



1^ ipiiiiddelde is 7,4. 



Goed 


Gem. 


Slecht 


Niet 


42 


14 


0 


12 


38 


15 


1 


14 


26 


31 


1 


10 




12 


3 


10 


?i 


31 


8 


11 


17 


19 


6 


26 


25 


29 


4 


11 


16 


31 


8 


13 


30 


25 


6 


7 



Over de verschiXlende onderdelen van het blad wordt als 
volgt geo^deeMt 

Redactionele praatje 
Uitnodiging 
Algemene artikelen 

BftSiC listings 

FORTH listings 
Hardware ontwerpen 
Reclame clubartikelen 

Overeenkomstig het gemiddelde cijfer wordt hier weinig 

'slecht' toegekend. Duidelijk positief zijn de onderdelen 

Redactioneel/ Uitnodiging, assembler listings en opmaak. 

Uitgesproken gemiddeld zijn de BASIC-listings. 

Met de FORTH-listings weet niet iedereen raad; ruim een 

derde heeft geen roening, bijna een derde vindt het msoLt 

gemiddeld. 

Met de schri jfactiviteit vooic het blad is het dunnetjes 
gesteld, bijna de helft schri jft nooit lets, ongeveer e&i 
derde met enige regelmaat: 



liooit 
Meinig 
Af en toe 



m 
11 

19 



Regelmatig 4 
Kiogvi^et 4 
Ulei lif evuld 2 



De taal waarin het cli^lad g esteld is al menigroaal aan de 
orde geweest. De leden denken er zo over: 

Nederlands/l^igels 20 
Engels 16 
Van alles door elkaar 14 
Nederlands en een beetje Engels 9 
Alleen Nederlands 5 
1 taal (Nederlandd OP Engels) 2 
Niet ingevuld 1 
Geen mening/voorkeur 1 
Nederlands en een beetje Duits 0 
Nederlands/Duits 0 
Duits i 

Op Duits zit niemand expliciet te wachten, er is echter 
een sterke voorkeur voor Engels. Globaal gesproken mag 
volgens deze verdeling de helft van het blad in het Engels 
gesteld zijn. Een aantal leden vinden wel dat indien er- 
van Engels gebruik gemaakt wordt, dit goed Engels moet 
zijn. Zij hebben liever Nederlands dan steenkolen-Engels. 

Volgens de deelnemers moet het volgende wat minder 
verschijnen: 

Niet ingevuld 30 
BASIC programma^S 9 
Lange listings 7 
Spelletjes 5 
Lange listings met kleine toepasbaarheid 3 
Schaakprogramna ' s 3 
Junior promoting artikelen 't' 
Onduidelijke listings 1 
Artikelen in het Engels 1 
Algemene verhalen 1 
De leden maken het blad 1 
Artikelen Mm mmf^§i^ zijn 1 
Disassemblers l 
Listings met 'grote gaten' (no. 43 31-43) 1 
'Kale' listings l 
Zeer grote modificaties van programma's 1 
Meer over gekocht minder over zelfbouw 1 

Voor de BASIC programma's kwam iemand met een goed mm^ 
ment: er valt meestal niets vin te leifc^ en dSt Is 11^(1 
de doelstelling van de club. 



Yerantwoording prijzen enquete. 



5 SRAMs, SkxS gingen naar: 

H. van Engelen, Utrecht 

.<3-%Mi> Oostman, Haarlem 

F. Trataaert, Gent/ Belgifi 



E.R. Elderenbosch/ Amsterdam 
H.J. CitSi BincKsoven 
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Het volgende moet meer in het blad verschijnen: 

Niet ingevuld , j . 16 

Software 10 

Hardware ^ 12 

Algemene artlkelen iii ii^rmele stijl 6 

DOS65 artikelei^ 3 

Kleine progtMUfd fM| fevoXf en 2 

Tips 2 

interfacing {mod&m, imml 2 

jidseinbler listings , 2 

BASIC listings ^ 2 
Universele software ' ^ 

Cybernetica/robotics 2 

Progranroa's in nette talen (PASCAL) 1 

De leden maken het blad 1 
Artikelen v d beginner/kleine systemen 1 

Octopus/Samson artikelen edgemeen 1 

Bespreking mogeli jkheden progranroa's 1 

Yerbetering/'^atches 1 

Niet helemaal uitgewerkte ideeen 1 

Artikelen over progranmeermethoden 1 

IteMv^rgelijkingen randapparatuur 1 

S^routine bibliotheek 1 

Combinaties an hard- en software 1 

Print layou*- s , . , 1 

Uitleg hardware 1 

Artikelen van mijzelf (van Engelen) 1 

Junior software 1 
Uitleg verschil systenaen (Junior/EC65) 1 

Info ov^^ : "'s 1 

Boekbesprekingen 1 

Marktontwikkelingen 1 

Beetje PASCAL 1 

Besturingen met microprocessors 1 

68000 1 

Cursus machinetaal 1 

16-bit club systeem 1 

Listings van utilities 1 
Hoger werk ajNTX, CP/M) 
Apple -I ^ I . , ..■ '.'^ 

Vendere opmerkingen over het cllflblslad waaren: 

Oproaak kan veel beter 6x 
Drukkwaliteit moet beter 5x 
Houden zoMl 4x 

Standaard kop voor alle artikelen 4x 

Meer comroentaar in listings 3x 

Minder Engelse verhalen, anders zeg ik op 2x . 

Nieuwe rubriek: problemen met de Octopus 

Adressenlijst van Belgische leden 

Artikelen niet door elkaar afdrukken 

We ondersteunen teveel systemen 

Engelse inleiding/samenvatting bij artlEkel^ 

Auteur met adres bij ALLE artikelen veriaildiin 

Maak eerst een goedkope barkode-leze^/ 

Dan: alle listings in barkode 

Meer DOS65 artikelen , ■ , .. j.. 

Blad moet dikker * *" 

Blad moet in 1 taal , maakt niet «||t welke 

Selfmodifying code: streng verbodtel " 

Enthousiasme is prima 

^MiHGUl^ wm, iW^gsm^ jl^ Msom^ tuirdware 
Hibor piMiCTiti^ iisrit cdifteetheia verif ieren 
DOS65 is een reden om te blijven 
Paperware veel te duur, bij AH goedkoper 
Hardware teken i ng en on vol 1 ed ig/sl ech t 
Veelal geen inleiding bij artikelen 
Listings eerst verkleinen/ dan in blad 
Afdrukken in 2 of 3 kolomraen 
Forecascpagina: wie werkt wsiaraan? 
Tijd tussen schrijven en publicatie verkorten 

Andii»te kleiir 1im£t 



De zesde vraag bevatte de 'hamvragen' van feet :feiBSfcaur# 
waarbij de naamgeving de belangrijkste is. 
De eerste vraag diende Otti d4» '^^ivit#itii^r«l#i^3'' • l# 
peilen. Dat zit zo: 



Lid voor het blaid 3 

Te weinig tijd 35 

Artikelen schrijven 9 

Hardware ontwikkelen 15 

Software ontwikkelen 18 



In het bestuur zitten 3 
Spreekbeurten houden 3 
Vertaalwerk do^ 8 
Niet ingevuld 3. 



m d^fdis zal u:iti&raltiti 



Bi jeenkorost m:§mia&cm 3 

Twee beantwoorders in 
zitten, waren reeds tjesttiutslid 
benaderd worden. 

De helft van de inzenders blijkt geen tijd te hebben voca? 
clubgerichte activiteiten. Ongeveer een kwart wil wel 
p^li^^iig9werk in soft- en/dH»»dware doen. 

De han^aaigf/ of de club van mm vmt veranderen werd als 
volgt beanlvoord: 



Totaal 

Geen mening 26 
Nee 11 
Ja 29 



(leeftijd) 
15 25 35 45 55 65 
0 5 10 8 3 0 1 
0 ^ :S 2 1 
0 6 7 12 3 2 0 



Tbteial (tijd dat men e^ 

-1 1-2 3-4 S-f '^f' 

ja 29 0 0 12 13 3 



Kiter heeft) 

0 

2 



D0 Nee-zeggers zijn duideliik in de minderheid. De 
le«fti jdsgroep 25-35 is duideliik de 'geen iiieni»g*-^r@e[^# 
de leeftijdsgroep 35-45 zijn de duidelijke ja-zegefers;, 

Indien men 3 tot 7 jaar een computer heeft, reageert men 
ongeveer als het gemiddelde. Korter dan 3 jaar heeft men 
geen mening, langer dan 7 jaar zijn meestal ja-zeggers. 
De redenen die ssoal werden opgegeven waren: 

Vlag dekt lading niet meer 20 
Buitenstaanders begrijpen naaM iiilll I. 
We doen meer dan alleen KIM 4 
Nadruk op praktijk 1 
Aansluiten bij HCC 1 
Verandering van spijs doet eten 1 
Naam in buitenland onbruikbaar 1 
Misleidend/ onduidelijk 1 

De hoofdreden is duidelijk: De KIM is er niet meer en we 
doen veel meer dan dat, dus klopt de naam niet meer. 

m V^i^dt nai^ *^tra^ ^Pporgesteld: 

Niet ingevuld 28 

De 6502 Kenn^ 10 

PDC(C) . , 9 

Club65+ ' ^ -,Lv ^ 

ENCC 2 

De 65XX(X) Kenners • • ' 2 

The 6502 users i 

De 65+ Kenners • ^ ' 1 

Computerclub 65+ 1 

Dutch micro60 club 1 

Micro60 hobby club 1 

Club 65X 1 

Het zesde alternatief 1 v 

First Dutch processor club 1 

Hobby computer knowledge club 1 

Bit Burger 1 

Chip Chat 1 

De 6502 hobby club 1 

United processor club 1 

RMP (Rockwell/Motorola Processors) 1 

CPM (Central Processing Magazine) 1 

Computer uder club Bolland 1 



Op de vraag of er nog andere processors dan de 6502 in de 
club moeten worden toegelaten werd door 51 deelnemers 
(75%) positief geantwoord. Ben zesde deel (11 dus) vond 
van niet. 8 d^ln^nmrs haddi^ hletot^ ^^mm:^mm^m 

Of de club de gebondenheid met een bepaalde processor of 
processor f ami lie moet loslaten of niet was ook duidelijk: 
46 (68%) deelnemers vinden van niet. Ook hier hebben 6 
deelnemers geen meniiig. ' ' 



5 a s 



Door de ja-zeggers bij 6D/B "' . " . ' • . ** 

Blijf in de 6XXXX serie M 

We moeten met de tijd meegaan 5 

Beperking is het eifiie van de club 4 

6502 te smalle basis 3 

Andere CPU bevordert kenni^Uitw. 3 

8-bit ters maken plaats voor 16 2 

KIM had 6502/ waarom geen andere? 1 

Meer over 68000 1 

OQk interesse in Z80 en 8088 1 

Dbc>r ^ mie-asieg^ers bij 6D/E 

Meer CPU's: rooeilijker kennisuitw. 4 

Meer CPU's: die clubs zijn er al 3 

Algeroeen: blad wordt zootje 3 

49^^:1109^ meer om lid te blijven 1 ; , ■ 

'wc- zal'kliekvorming optreden 1 

Doorgaan met 6502: steeds mooier 2 : ' . 

Het IS nu al een ro/nmeltje 1 

Nog te vroeg voor opvolgers 1 

Over opvolgers voor de 6502 gesproken: <llt #i|n ze volgeni 

de deelneraers: 

65C02 12 6809 2 

65802/65816 34 Geen 5 
6800 0 8088 1 

68000 22 Niet ingevuld 9 

m helft ziet de 65802/65816 als belangrijkste opvolger* 
een decdft de 68000 • De loeerdejrlieid ziet 16-bit dus als 
volgende sit^. 



Met het bijeenkomstenbezoek is het als velft gesteld: 

10 ^mm tmt 



Nooit: 28 
Altijd: 14 



Alleen in de buurt: 
Niet ingevuld: 3 



De ene helft komt nooit (de buitenlanders vanwege 
af stand), de andere helft gemiddeld genoroen af en toe. 
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de 



Met de kwaliteit van de bi jeenkorasten en de 
het volgens de leden zo: 



lezingen is 



Bijeenkorast 
^ ' 33 
0 
1 

Met ingevuld 34 



Slecht 



Lezing 

me^ 28 
Hatig 4 
Slecht 0 
Niet ingevuld 36 



•If,'. 



Diegenen die naar de bijeenkomsten koneilf blijken ze goed 
te vinden. Ook de lezingen vallen in di ^aUSiak, zij het wat 
minder. De nooit-komers vulden deze vragen uiteraard niet 
in. 

Tenslotte werden de volgende suggesties ter verbetering 
van de bijeenkomsten gedaan: 

Waarom altijd zo ver weg? (3x) 
Lezingen op te hoog niveau (2x) 
Jaarlijks Ix in Belgie of Duitsland (2x) 
Verzamelen/verspreiden public domain aoftmx^ 
Niet op zaterdag 
Ontplooi regionale activiteiten 
Meer tam-tam 

Gratis toegang en contributieverhoging 
Beter geluid 

Vriendelijker maken voor buitenstaanders 
Beter gestructureerd forum 



Conc3.usies. 

1. Een deelname van 10% van de leden geldt als goed; 
derhalve heeft een hoog percentage van de leden 
deelgenomen. Een vervolgconclusie is dan/ dat^. 4e. 
enqueteresultaten de mening Van alie leden teilfefljl!/ 
nauwkeurig weerspiegelt . 

Wij zijn een club technisch georienteerde mensen, 
die voorkeur hun computersysteem zelf bouwen, en op 
dit systeem in machinecode kunnen progcammeren. 
Vri jwel iedereen SGhrljft ^igen nieuwe software ^ 
zijn systeem. 

1. De talen asseiflt>ler en BASIC dienen de ineeste a^fef 
dacht in het clubblad te krijgen c»p grond van 
gebxruiksgraad . 

4. Over de tasl iiitiil affn de mening«ii v«^ieeld: &e M 
een kleine kern van f^atieke gebrulkers/aanhangers / 
maar een veel groter deel van de leden vindt deze 
taal oninteressant of weet er geen raad mee. Minder 
aandacht in het blad is dan ook op zijn plaats. 

5. De kennis van andere processors dan de 6502 valt . 
tegen; slechts de helft van de leden beheerst nog 
andere processors. 

6. Eenderde van de leden gebruikt het OHIO OS65D disk 
operating systeem, een kwart gebruikt het in de club 
ontwikkelde DOS65. Meer dan helft van de computers 
is derhedve opgebouwd rond de Elektuur CPU-kaart. 

7. Sterke kanten van het clubblad zijn het redactionele 
praatje/ de uitnodiging voor de bijeenkomst en as- 
sembler listings, die echter niet te lang mogen 
zijn. 

%4 ZwaJcke punten van het blad zijn BASIC listings en 
listings van spelletjes (in welke taal dan ook). Ook 
de oproaak werd hier en daar bekritiseerd. 

§v De kennis van de Engels onder de leden is over 
algemeen goed. De leden hebben er gemiddeld genomen 
wemig bezwaar tegen als een gedeelte van het club- 
blad in het Engels gesteld is, mits dit Engels van 
redelijke kwaliteit is. 

IOew De^leden vinden dat de club haar naaro moet wjjzigen, 
omdat de huidige naam de lading duidelijk met meer 
di^t* Indien de enquete doorslaggevend voor de 
i)i«uwe naam rooet zijn, dan luidt deze: 'De 6502 
llMiers ' . Dit is thans de naam van het blad. Als 
valfeematief kan gelden: First Dutch Coroputer-dub/ 
ijS^fBkort tot FDC, 

1^ i9 over het #|g|iBiiwt) 'MiMar teg«i it^ 

club zich in de toeicomst met andere processors gaat 

bezighouden. Men ziet de 65816 als opvolger, met als 
goede tweede de 68000-familie. 
12. De bijeenkomsten worden redelijk bezocht, en vallen 
over het algemeen goed in de smaak, zij het dat de 
plaats nog wel eens wat kritiek ondervindt. Een 
centraal punt geniet een lichte voorkeur. De 
lezingen louden wat eenvoudiger kunnen. 



lag the English-speaWig ceada^. 

First of all/ the executive committee would like to thank 
those of you that participated in the enquiry. To save 
space/ and because the majority of our members can read 
Dutch/ only the conclusions drawn from the results of the 
enquiry are translated below. If you have any questions on 
the Dutch part of the ^ti#le# do not hesitate to write to 
the organizer of the 

The conclusions drawn wieres 

1. A partipation level of 10% is usually good. We did 
better, so the results reflect the opinion of the 
average member pretty good. 

2. The average member of the club is a techniciitgt|^ i^i® 
prefers to build and program his system by himself. 
Programming is usually done in machine language. 

3. Most members use BASIC and machine language in their 
programming; the magazine should reflect this. 

4. The language FORTH is used by a small group of 
usually enthousiastic people/ but the majority has 
no interest or kwowledge in it. The magazine should 
therefore contain less FORTH articles. 

5. About half of the members can program another CPU 
beside the 6502 in machine language. This is less 
than usually assumed by the committee. 

6. OHIO 0S65D DOS is the most commonly used DOS: about 
one third of the members uses it. D0S65, developed 
in the club by a few members/ is used by a quarter 
of the members. This means that the majority of the 
systems is based on Elektor's CPU-card. 

7. The best parts of the magazine are: the editorial, 
the invitation for the meetings and the lisstings in 
assembler. The latter should not be too long. 

8. Weak points of the magazine are BASIC listings and 
listing of games (in whatever laguage). Sometimes 
the lay-out was critisized. 

9. Most members can read and speak English/ have little 
objections against a part of the magazine being 
written m English. The language used should be of 
sound quality. 

10. The members feel, that the name of the club should 
change/ because it is no longer a valid name. 
According to the results of the enquiry/ the new 
(Dutch) name should be 'De 6502 Kenners'. An 
alternative can be: First Dutch Computer-club/ 
abbreviated to FDC. 

11. In future, the club should also deal with the 65816 
CPU/ as most members think this will be the 
successor of the 6502. The 68000-family can form a 
good alternative. 

12. The meetings are visited regularly by the average 
member/ who has a good feeling about them. Some feel 
that the meetings are in places too far away and 
should be held in a more central spot. The lectures 
are a bit too difficult. 
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KENMER 



IQ^OfimiNlllilNUSI 

^ « HORIZWTflL POSITION OF THE STRIN6 
r » VERTIOM. POSITION OF TtC STRIN6 
H " STRIN6 TO K PRIMED 
r • iMB flF IHE VIOEO RflN 
i « liK ff « 0 NOMRL 

N>1 VBinCflLTEXT 



lOP-0 

12 FOR I-O TO 23 

14 REflDC:P>tNC:POKE 153fitI,C 

16 NEXT I 

18 IF P02851 TtCN STOP 
20iMTn 10t,lM,133,213J04 
22DflTfl 133,212,160!7,1>7 
n DATA 212. 162,7, l6,l26 
i6IIATfl24,^,20i,ki49 
ISDATR l%,i6,2h.^ 

100 SRflPHICS fl 

110 C=PEEK(560)^2S6iPEEK(Kl) 
120 BsPEEK(CM)t2S6*PEEK(C45) 

200 OIH T$(30) 

m n-nmizoKTM.' 

220 Hi^i\^20>IH 
230 eOSUB 1000 

240 T<*«VERTICnL« 
290 H>100iV>120(M 
2fi0 60SlB 1000 

10ft 'i ' 



NRCHINECODE IN 
UORKRREA 

OiCKSOH 



INIT SRflPHICS NODE 
AND CALCULATE FROM 
BEGIN OF VIDEO RAN 
INB 

T« IS THE STRIN6 
NEEDED BY THE SUBR 

H > HOR.POS. FIRST 
CHARa 

V > VERT.POS.FIRST 

cm 



1000 REN SUBROUTINE TEXT IN 9mm • 
1010 FOR J>1 TO LEN(T«) 



REPEAT FDR ALL 
CHARS OF THE 
STRING 

TESTONHAND V 
NOT EXCEED THE 

uim. 

CALCULATE THE DEST 
ADDRESS OF THE 

smmmm rrn 

CONVERT ASCII TO 
ADDR UHERE CHAR IS 
IN RON 

IF VERT. THEN CALL 
NRCHINECODE 
HRITE CHAR TO 
SCISEN 
IF HOR. THEN 
INCRENENT H 
IF VERT. THEN 
INGRBINT V 



Liim 10-28 oithir. LIdm 100 - llD|illKr. Hatch the B 
that Mit hold thi calc«latfld valw tRt Nhole ruming. 
LiRN 200 - 300 give an exa*ple: one can change Nithout 
any riik. In the string everything it alloMedi ALPHABET, 



1020 IF H(0 OR 10319 DEN^ 



1030 IF V<0 OR V)159 THEN STOP 
lOtO P-B»INT<H/8)44eiV 



lOSO D«C(T$(J,J)) 
1060 IF 096 TKN C>C^32 
1070 IF C<32 THEN C>C^ 
1080 C»84:^0B8 

1090 IF H THEN C*USR(1536,C):C»1560 
1100 FOR 1-0 TO 7 
1110 POKE (P+40tI),PEEK<C«I) 
1120 NEXT I 

1130 IF N»0 THEN H4H8 
1140 IF H THEN V>V-fi 
1190 NEXT J 



•lohatetf 0 witil 9, graphical charactefi, ■!& Unet 1000 
- 1160 IS the sttbrevtine. Lines 1020 wm 1090 prevent 
serious errors in the coepeter; in this nbnwtine 8 t a 
poke Nill be executed. If no need of vertical int. lines 
1090 en 1140 can be cancelled and line 1130 mil be 
changed to 1130 H4H8. The lines 10 - 28 also to to 
cMcelled. 



ASCII-HUNP IHTH 0S-6SD V3.3 EXTBtED NONITOR 



It is soaetiaes very useful to have an ASCII-duap together 
Mith a HEX-dittp. 

This extension of the 0S-6SD Extended Honitor produces, 
Mhen the D-coaaand is entered, an Ai^-iiaiWi ini Mt«ifin 
of the HEX-duap on the screen. 

It can to used by JUNIOR-oimers with an 80 coluans screen. 
The extension is placed in aetory f rea ilF3E Nhich was not 
used originally. 

The D-coaaand aust be entered in tt» saae way as before. 

Gerrit van Uoerkoa 

Appelaar 55 

4907 KD Oosterhout 

1^ Milftw^liiii 



10 
20 

30 OOCCs 
40 00CE« 
50 

60 232S» 
70 1A6B* 
80 1A56S 

.SSI! 

110 19F2» 
120 19E9= 
130 1AB9> 
140 1A53> 
150 19CI> 
160 

170 1C3D 
180 

190 1C3D 206B1A 
200 1C40 A90O 
210 1C42 8D2523 
220 1C45 20561A 
230 1C48 206F1C 
240 1C4B A6CC 
250 1C4D AOlO 
260 1C4F 20AFi6 
270 1C52 20AF1B 
280 1CS5 8A 
290 1CS6 20F219 
300 1C59 E8 
310 ICSA 88 
320 1C5B D0f2 
330 1C5D 206F1C 
340 1C60 fl6CC 
350 1C62 AOlO 
360 1C64 8A 
370 1C65 20F219 
380 1C68 E8 
390 1C69 88 
400 1C6A D0F8 
410 1C6C 4G4HF 
420 



and ASINiiiW' 

STADR =«CC 
ENDAOR»$CE 

KPDO *«2325 
GETPAR>«1A6B 
CRLF "«1A56 
PRSP «$1BAF 
PRASC *il7A0 
PflNIBL«il9F2 
PRBYTE>$19E9 
NXTADR-dAeg 
RETEN««1A93 
PR8PS«tt9CI 



i-«lC3D 



JSR 
LOA 
STA 
JSR 
JSR 
LOX 
LDY 

NEXTl JSR 
JSR 
TXA 
JSR 
INX 
DEY 

JSR 
LDX 
LBV 

NEXT2 TXA 
JSR 
INX 
DEY 
BNE 
JNP 



GETPAR 

«0 

KPDO 

CRLF 

SPACES 

STWR 

«$10 

PRSP 

OflBQ 

PRNIBL 



NEXTl 
SPACES 
STAOR 
HIO 

PRNIBL 



NEXT2 
BUHP 



;get start- and 
;and endaddr 

; print CR,LF 
; print 9 ^nkw 



; print 2 spaces 



;print Ion bytes 
;of addresses on 

;print 5 i|iicis 

;i6 coluans for 
;ASC-du«p 



••ake HEX- Mi 
;ASC-duap 
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430 USF 
MO 1C71 
450 

4fiO 1C74 
470 1C76 
480 1C7S 
490 ICTH 
495 

500 1C7C 
510 

520 1F3E 
530 

540 1F3E 
550 

560 1F41 
570 1F44 
580 1F46 
590 1F48 
600 iF4B 
610 1F40 
620 1F4E 
630 IFSl 
640 1F53 
650 1F54 
660 1F57 
670 1F59 
680 1F5C 
690 1F9P 
695 

700 1F61 
710 1F64 
720 iFee 
730 1F68 
740 1F6A 
750 1F6B 
7fi0 1F60 
770 1F6F 
780 1F71 
790 1F73 
800 1F74 
810 1F76 
820 1F78 
830 1F7A 
840 1F7B 
850 1F7C 
860 1F7E 
870 1F81 
880 1F82 
890 1F84 
900 1F87 
910 1F88 
920 lF8fl 
930 1F8B 
940 1F8D 
950 1F8F 
960 1F91 
970 lF9i 
980 
985 

990 1F97 
1000 1F98 
1010 1F9II 



11206 
4IXtl9 

3004 
C920 
8002 
fl92E 

40M!t7 



4C531fl 

A02523 

C903 

F0F6 

2056M 

flSCD 

48 

20E919 

flSBC 

48 

20E919 

A210 

20flFlB 

ma 



20E919 

E6CC 

0002 

E6CD 

38 

ASCC 

ESCE 

flSCD 

E3CF 

CA 

B002 

D0E4 

FOOR 

8A 

A8 

fl203 

20C819 

88 

00 F8 

206F1C 

68 

89K 

68 

8SCD 

1)210 

BlCC 

20741C 

Timm 



mm m k 



OOFS 

Foe 



■rmiTMi NDom 

BCSCHM 
NDCHAR LOft f. 



JNPPRIKC 
<-flF3E 



;i5 byte » Jglt 

;is bvte 
;m niir. 'wr 
jpriwl"'.* 



BREAK JNPRETEN ;faiel tt 91 



Blip UMKPOO 

BEQ BREAK 
J8R GRLF 
UMSTADRtl 
PHR 

mmrn 

tilSllW 
PHR 

M PRByTE 
LOX MIO 
JSR PRSP 

ifxmi mm 

INCSTADR 
6NEN0NUL 
INCSTRDR^l 

LBASTADR 



LBA 
SBC 
BEX 
BCS 
BIC 

N^RifBEB 

'HI 

fir 

FILL LAI 
JSR 
BEY 

PLfl 
STA 
Ptfl 
STA 
LDX 

n^LOA 
JSR 



;BREAK-key hit? 

•print CR,LF 
•get ttartaddf^ 
;savt it 



•get ftarti 
;save it 
;and print it 



y get byte to 
;print 

;and print % 



HEXRDV 

NExnr 



m 

Mips 

FILL 



;ICX-ckMip rcidy? 
;1& col. rea^ 
;1& colMm ill 

;if not tiMi 



HEX 



STADR •restore ^ 
;startaddi^ 
STADRfl rstartaddr^l 
HIO ;colaancntr^l& 
(STADR), Y get character 
OUTPUT ;and print it 
;incr startaddr 
;and go to EM 
iif ' 



WJMX ML TJX lAiJWl 

R. Baarslag 
Beatrixftraai-S 
9161 HR Sprane-Cipeilt 
^ Netherianls^ 

] have found a bug in Elektor Coepu tinq No. 1, on page 66. 

m eharicter ^ i» iSiM ittT he M mm t mm 
iMilli iri #e ifectt liltre jeaping la ^ inta^ine 



i IliiMiiinother bug eheitt IfM^M the fnetrw^ 
tian SED in a self written progiM. Khen I use this in^ 
stnictian in a prograa. ami I run it, the aonitor gives an 
MMiSual picture. I loolred if this instruction has an 
iffMrt on the CRTC. I aust give a hardeare reset to re- 
M^ise the CRTC. Is there anvone eho hM tte MM pro^ 
peae or (»m anyone give ae a solution? 

Fig-FORTH DISK 10. 

yhen I loaded disk 10 nith Fig-fDRTH and I tried VLIST, an 
wittsual picture caM on the screen of the aonitor. Froa 
each Mord the last letter is changed in a graphic-sign. 
And the string editing coawids are not working, (te any* 
one a solution far these (irebleis? 



LELJJUL lyULSASSJA i JAT. 

Vanaf donderdag 12 aaart 1987 via radio 5 van 22.00 - 
22.30 ttur geeft TELEAC een veertiental lessen St ructuur in 
Basic voor hen die 'netjes* irillen leren prograaaeren en 
voor beoinners. Er wordt gebruik oeaaakt van m Basic, een 
'dialect' dat echter goed bruikbaar is voor aensen die 
een coaputer hebben aet een ander dialect dan 6U Basic. 

Vanaf dinsdag 10 aaart 1987 via radio 5 van 20.30 - 21.00 
nur geeft TtLEAC een twaalftal lessen Personal Coaputer 2 
taor hen die al eni 



' hen die al emge tijd aet een coaputer eerken aaa 
nerkoageving efrektiever gebruik van willen aaken 
de coaputer; De kennis uit oe cursus Personal Coaput 



tijd aet een coaputer eerken aaar in 
' " aaken van 

Coaputer 1 

I te zijn. 

t^ipttlir 2 wordt eveneens gestart op de 
televisie via Nederland 2 vanaf aaandag 9 aaaft 1987 van 
23.05 - 23.35 uur, eveneens twaalf lessen. 

Inlichtingens 

itichting TELEAC, Buro Voorlichtil^ 
fostbus 2414, ^ 6K Utrecht. ^ 
Telefoons #-95^11 

fraktijkboek Videotex 

tirk de Srooff (red), Narc Anne', Patrick Engelen, Frits 
van Dissel. 

Uitg. : Naarten Kluwer. Antwerpen - Apeldoorn. 



ISBN 90 6215 102 7, 1984, 147 p., aet adressenlijst. 39,50 
Net deze 'cursus' leert de lezer in een kort tijdsbestek 
zelf videotextpaginiNi Ml It latm p li^ de 
coaputer. 
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WORKING WITH MICRO-ADE and BANK SWITCHING on the JUNIOR COMPUTER 



# HARDHARE COHSIDCRAT lOHS 



When I began testing with the project issued in OE 6502 KENNER, last Ap- 
ril all Wis well yflll^l flirted u«4i%f ftmm dilirf read and write 
the memory btnks in a fast manner: by that tlwi the myst#ii went dowti ©ftin, 
with, I discdVired later, timing problems. 

1 had two sets of UM.M^Mt miff 0 llW^i mmii Um in kiltit '^ 
other with 2l3ens. Sot I bdugitt i tmn set of 8x 4164 - tStiiii and ttitfd iftlBl 
it was not enough. 

In my system, th« i& due* fits a riiti^l^ tf »# f*) ' tii^ 
(fig. I), and so the timing chain in the refreshing section of the dyn. RAM cardi 
began too late, and the time left to access the chips was too short; and this 
was, of course, aggravated by the tiding civtrfi&i^^^^ of fM'ilTs^idt of Qitl^J^iH 
N29, 'LS138, N103,107... ((^«») fig lA and IB), necessary to decode the Ulu ^ ' 
lines to the banks. To cure this, I've used iz, instead of Ji, enter- 
ring N2. IC10, in the Junior board, to wMcf) iillH^gl N4 liee fig.l) is 
overloaded: first, it is R5; simmi^ this line drives directly all the dynamic 
RAM chips in every card; the 'LS ¥lrsion has a MAX low-level output current of 
only 8 mA, against 20 of either tffll? 'S or the ver^^H^l* prt|ert||f^ the 
74501 should be used. Also, I've gQt_a_more simple w0f ^^iSt-0m^i^te tie signalt 
0:^D (original board with bank.0) and (new boarddir I'll thi pi act of ICll 
and associated gates N27, 28 and 29. More, I was offend with a better^ 0iyit«r 
and faster soUrtion, reducing the amount of TTL IG's mw^mli a PROM generates 
the required SEL lines to the various boards. '^^ 

The PROM, fig. 2? drives directly the SEL line of the r#frttl^iitf section 
of each dyn. RAM card: its Q outputs will only be Ion in the address range of 
14000 through BFFF in the sel^ted bank, except for the original board (system 
RAM +• bank.0), to which the SEL line must be active always in the ranges $0000 ^ 
3FFF and $C000 •> DFFF (system RAM) whatever bank be selected. Then N31, (an or- 
gate) in the dyn. RAM boards, adds the SEL line with the $i clock, so the 
RAN ^h||*.ji|f^|H^^ only if the two lines are logical low. 

tie prof rimming of the. PRQJJ^cXf ig.3) is straigthf orward: 

address (MSJiitebleJ • ''A, i;']! 

bank 7\ ^ 



1 , 




0, 


1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


6 


C 


D 


E 


F 








FE 


FE 


FE 


FE 




FE 


FE 


FE 


FE 


FE 


FE 


FE 


FE 




FE 


FE 




FF 


FF 




IZ 


s 


FE 


FE 


FE 


FE 




FD 


FD 


FD 


FD 


FD 


FD 


FD 


FD 




FE 


FE 




FF 


FF 


data- 


-out lines: 


2t 




FE 


FE 


FE 


FE 




FD 


FD 


FD 


FD 


FD 


FD 


FD 


FD 




FE 


FE 




FF 


FF 






30 




FE 


FE 


FE 


FE 




FB 


@ 


FB 


FB 


FB 


FB 


FB 


FB 




FE 


FE 




FF 


FF 


bit7 


banks D/E 


40 




FE 


FE 


FE 


FE 




FB 


FB 


FB 


FB 


FB 


FB 


FB 


FB 




FE 


FE 




FF 


FF 


bit6 


banks B/C 


50 




FE 


FE 


FE 


FE 




F7 


F7 


F7 


F7 


F7 


F7 


F7 


F7 




FE 


FE 




FF 


FF 


bits 


banks 9/A 


60 




FE 


FE 


FE 


FE 




F7 


F7 


F7 


F7 


F7 


F7 


F7 


F7 




FE 


FE 




FF 


FF 


bit4 


banks 7/8 


70 




FE 


FE 


FE 


FE 




EF 


EF 


EF 


EF 


EF 


EF 


EF 


EF 




FE 


FE 




FF 


FF 


bits 


banks 5/6 


80 




FE 


FE 


FE 


FE 




EF 


EF 


EF 


EF 


EF 


EF 


EF 


EF 




FE 


FE 




FF 


FF 


bit2 


banks 3/4 


90 




FE 


FE 


FE 


FE 




DF 


DF 


DF 


DF 


DF 


DF 


DF 


DF 




FE 


FE 




FF 


FF 


bitl 


banks 1/2 


AB 




FE 


FE 


FE 


FE 




DF 


DF 


DF 


DF 


DF 


DF 


DF 


DF 




FE 


FE 




FF 


FF 


bits 


bank.0 and 


B0 


s 


FE 


FE 


FE 


FE 




BF 


BF 


BF 


BF 


BF 


BF 


BF 


BF 




FE 


FE 




FF 


FF 




system RAK 


C0 




FE 


FE 


FE 


FE 




BF 


BF 


BF 


BF 


BF 


BF 


BF 


BF 




FE 


FE 




FF 


FF 






D0 




FE 


FE 


FE 


FE 




7F 


7F 


7F 


7F 


7F 


7F 


7F 


7F 




FE 


FE 




FF 


FF 






se 




FE 


FE 


FE 


FE 




7F 


7F 


7F 


7F 


7F 


7F 


7F 


7F 




FE 


FE 




FF 


FF 






F0 


s 


FE 


FE 


FE 


FE 




FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 




FE 


FE 




FF 


FF 







He^wory 0,l,2,3XrX 
adres- always accessed 
ses: on the original 

board 



4,5,6,7,8,9,A,BXXX 
addressed on the 
various banks 



C,DXXX 

at cess id 
original 
board 



E,FXXX 
never 
i^cetsed 
(not RftH) 



fig. 3 - programming table of the TBP 28L22 (256x8 bits NOM) , 
as the ruler of 16 banks. 



S □ S 



The first 4 bytes in every roM are IFE (U11.1110): the systen RAH is always se- 
lielii''it-iiifH»«ilife 1^^ 3XXX; lfti^fiItiftiA| i if lit #irr iittirding li'^tii 

bank selected; as an eKample, the selection of bank. 3 at address SXXXi reads lo- 
cation 135 of the PROM whose data is $FB or 1111.1011, where bit 2 selects, in 
litli bank. 3. ColuiRilf ij and 14 correspond fd li#iiies C and DXXX, system RAi, 
active in the original board (whatever selected bank). At last, columns 15 and 
16 in the table, are prograneed as IFF (1111.1111), so none bank is selected at 
addresses E and^fftfV^i«tlai* Iftll t^iirfi il^^M RAH. 

- Tve been working with bank.0 (the original 64K card where is also the 
ifiiM RAH) and bank a & 2 tiiletliir «Mf ^fliiy fii'itlfe^^^ thi ttflliti #f an 
iSK source file. 

Two PRQHs Wire tested. The TBP 24S10 (74S287) with 4 bits, addresses 7 
lifti* 'iri?*^ll. -^ilillrlli* TBP 28L22 with W-MW fits pftvliion for the usej^ 15 
banks (0 through E, not counting with the system RAM) or even 16 (if the SEL li- 
ne for bank.F is decoded from the bank-register's 1,2,3,4-Q lines - when these 
are all high) , I found that it wis ms^ such Isftsible the use of only 64K dynamic 
RAM cards: with a 7-connector bus (*^) I have space far banks 0, l-2» 3-4 
(3 RAM cards), bank. 5 (an 8K RAM + 16 EPROM card) fig. 4, the FDC card, the VDU 
cardf and a lif^Pock card. Bant.i is m good gaal, because an old card is re- 
utilized with small effort, fig. 5, and an extensive (E)PROM space is put at hand 
for frequently used programs and utilities. 

16 Hill tailC RAH each) amount to 512K bylts« SI fHili lili'^lll^Mi the 
RAH disk board promised by Erwin Visschedyk (*M. 



♦ SOFTHARE 



I have nor MICRO ADE extensively re-edited and assembled and the main 
routines are already tryed-out with banks. Following are the listings of Sttl Of 
them: INCWSP, DECWSP, SETBK0, SWAPDN, SAVBNK, RSTBNK and SETBNK. 

Passing by, I have fixed some slow routines (FIX, DELETE, INSERT...), 
while implementing new features of this edi tor /assembler . 

The memory map is now a litle more organized. Fig. 6 is the basic version 
without banks; the workspace is extended to a maximum, leaving enough spaii lor 
the tables. Fig. 7, the bank-switching-mode map, has enlarged symbol and cross-re- 
ference tables, to be able to assemble large programs, as MICRO ADE itself (8k 
object code) . 

All the tables (symbol, X-reference, object code) are in bank.0. The 
source extends from bank.0 up to the last bank. These tables are needed only to 
ASSEHSLE the source, not to the editing process. So, the lines in the source are 
accessed one at a time, and stored on the MA buffer at $0100; after this reading 
of the source, the number of the present bank, the workspace pointer and the 
biat iieli miters (different on bank.0, intermediate bank(s) and on last bank), 
are saved onto the stack, and bank.0 is activated (called), to let the tables be 
accessed and updated by the assembly process, i.e., the line in the buffer is re- 
ad, interpreted and assembled. 

Then, the previous bank is restored, and also its respective polnttrs 
and delimiters, and the process is repeated until the EOF character is raacAid, 
either in PASS. I or in PASf^il,:^ ' \ 
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The source's reading is effected via Y-indirect indextd addressing 
(LDAIY...) and is pointed to by the Workspace PoiNTer in the current bank. The 
rwtlnes INCnitnt and BECre«ent the WSPNTer, check for the crossing of the ban- 
ks' boundaries. At the end of every bank (except in the last one) is kept a 
1-page buffer to keep pace with the use of the indexed instructions, which could 
ilt#»ft to ir»ii or write beyond each bank's limits. When the pointer is incremen- 
ted and the new address falls in this buffer ($BF00) , swapping is made to other 
zone (temporary), the bank is switched (incremented), and the first page (at the 
base) #f-thi bank is loaded with the 256 bytes from the swap zone. 

The other way around, when the pointer is decremented, reaching the ad- 
dress before the start of the source-file (beyond the base of the current bank), 
the firit pifl ©I the tmtte in this bank is swapped (through the swap zone) to 
the last page (the buffer) at the top of the previous bank, iftir its ictivttion 
(call). Please see fig.lIIB in the first article ('"*). 

The 2k DOS (Kernel) at $2200 in the memory maps, is an adapted and r#da- 
ced version of the disk drive software in 08^50 V3,3,.witb §lm9% thf iiif 
mands as the orlgtui!^ 

Ask the Paperware Service for the complete source-listiijp ii| fir* Ifi- 
formatioRi M f#ii*ri litlirtttii* 
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MAIN BOARD 



DYNAMIC 
RAM CARD 




Mi... scwsnsai 



N1«Na...3lC1 e 741514 



fig. 1 



the problem of the delay in the rising edge of the 
li clock. The relevant parts of the Junior's main 
board (*) and dynamic RAM card are redesigned here 
for clarity, with the respective waveforms; a modi- 
fication is shown to obtain a sharper "It". 



SrSTEN 
RAM 



f I MONITOR 



BANK 1 




BANK 2 




BANKS 




BANK 4 

















tnil 64K OYN. RAM CARD 



3rd 64K DYN. RAM CARD 



BANKS 



CPROM 

(IN 
BANK5I 



8K RAM « 

Itf Klf^llOII GARO 



1st 61 K OYN. RAM 
{ORIGINAL CARO} 



f^m^AH ZONDAG 



lt|.i memory organization for a 6-banks, euracard-system 
(3x 64K dyn. BAH cards), in a 7-connfctor bus bQird. 
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A NEW 64K DYN. RAM KARD 

lELEKTOR SEP. n l 



Ift. 



MEMORY 



SiL 



RST 



3 RST 



00 



1. 



CLR VCC 
40 40 



ID . 1Q 

G1 G2 M N GNO 



AtS- 



1Q 



74 1566 



NEW A15 



1. 



VCC 



A4 Q7 

I 

TBP I 
28 i 
L22 • 

PROM I 

i 



QO 



NEW BOARD FOR DECODING 



OTHER BANKS 
(OmCIMAlkAtS. 

OOOttANHS) 



u 




13 




12 




11 


BANKS7/8 


9 


BANKS 5/6 


8 


BANKS 2IU 


7 


BANKS 1/2 



mS32 



PIN3_IC10-LS157 



MiW A1S 




OPTION 
A 



BANK 0 AND SYSTEM RAM 



OPTION 
B 



1Q- 



*1S- 



1 



H 
G 
F 
E 

TBP 

24 
S10 



M2i 



9 BANKS 5/6 



10 BANKS 3/4 



11 BANKS 1/2 



12 BANK 0 



*2 



ORIGINAL 64K DyN.RAM€ARD 



74LS15 



390 a 



A15- 
I 

I ■ 

I 

A13 - 



-II 



m 



HLSn 



BANKS S2 
IN USE 

4 



^ NO BANKS 



MEMORY 



0000 

SYSTEM RAM 



BAMK I 



COOQ 



SYSTEM RAH 



(PAS) 652? VIA 



>2« 



INTERrACC iOlARO 



fig. 2D- an overall view of the system: the decoding board. 

now with a PROM, and two Ml' iyn. RAM cards (5,6,7). 
Much of the ICs of the origiiitl project disappeared, 
and even soAe others in the tyntiiG cards are now 
also unnecessary. 
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KEIMMER 



A15- 



A12 • 
All- 



;Af|S s 

Af8- 



BANK 56L 



ICS 






i 


74 




LS 


S 


159 






8 






61 62 





ts|v 



.HM c* ♦ 16K EPROM CARO 



I i ADDRESS &6L-fL 



Hi 



C^ROM SEL 



.W _P 



IC7 



A 
B 

74LS1S5 



IC2S-2a 



2732 
EPROH 



All 




H1....N4 s IC8 S74LS08 
NS.M««1/2IC2t«74LS00 



fig. 5 



3 4. 



thB RAM + EPROM card C^,^,"^), unused, is picked-up 
(*400B->5FFF) and EPROM (*80B0->BFFF) , 



0200 



2200 
iiAOO 



cooo 

CEOO 
0800 
EOOO 

e«oo 

f^OOO 



womcsPACi 



(SOURCE FILE) 



SYMBOL TABLE 



X REF. TABLE 



OBJECT 



VIDEO RAH 



MONITOR EPROM 



MICRO ADE MEMORY MAP 



E0OO 



EBOO 

ECOO 
EDOO 
EEOO 
EFOO 
•^FOOO 



RAM 



DOS DIRECTORY P 



FACE ZERO SWAP 



PAGE ONE SWAP 



I/O PAGE 



EEOO 

IT 

✓^^EE40 
tE80 
EEOO 

***EFOO 



MA mPUT BUFFER 



MA 2ND BUFFER 



MA 3R0 BUFFER 



fig. 6 - memory map, without the use of banks. 
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aaoa 



6000 



6000 



EOOO 

Eaoo 

FOGG 



MICRO AOE, 
ASSEMBLER 



OOS 



X IIEF. 



SYMBOL 
TABLE 



M ICRO ADE 
WITH 

BANK SWrTCHiNG 



4000 



WORKSPACE 

(SOURCE 
FI4.il 



BANKO 



OBJECT 
CODE 



VIDEO RAM 



MONITOR 
EPROM 



BPPP 



E0OO 



EBOO 
^00 
EOOO 
EEOO 
^ EFOO 

Nooo 



WOflKSI<ACi 



BANK1 



/ 



/ 

/ 



WORKSFACE 



BANK 2 



RAM 



DOS DIRECTORY P. 



PAGE ZERO SWAP 



PAGE ONE SWAP 



I/O PAGE 



EEOO 
" EE40 
EEiO 
EECO 
--^FOO 



MA INPUT BUFFER 



MA 2 NO BUFFER 



MA 3 RO BUFFER 



fig. 7 - the system's memory map when the 6ank*-ftltchinfl 
used with MICRO-ADE. 



EIE SOS 



16670: 

16680: 

16690: 

16691: 

16700: 

16710: 

16720: 

16730: 

16740: 

16750: 

16760: 

16770: 

16780: 

16790: 

16800: 

16810: 

16820: 

16830: 

16840: 

16850: 

16860: 

16870: 

16880: 

16890: 

16900: 

16910: 

16920: 

16930: 

16940: 

16950: 

16960: 

16970: 

16980: 

16990: 

17000: 

17010: 

17020: 

17030: 

17040: 

17050: 

17060: 

17070: 

17080: 

17090: 

17100: 

17110: 

17120: 

17130: 

17140: 

17150: 

17160: 

17170: 

17180: 

17190: 

172001 



«i4 OECREKHI' ISftKiPACf fOlllTIII ««* (23€6) 

B«nfc.2 ($4081} f belli. t («BEFF)f SOURCF i$CM ^ BF) 

Bank.l («4000) ^ bank.O («BEFF) 

Bank.0 ($6000) •> bank.B ($6000) C>1 

BankFF (f2Afle} ^ b«nkFF (fZAit) e«l 



0AB5 


48 






OECHSP 


PHA 


€«i \/p Ar r 


0AB6 


18 








CLC 


If ' " ' • , /. J V 


0AB7 


AS 


10 






imi 


MSPNTL pige boundary? 


0AB9 


D0 


03 






BNE 


DECBU 


0ABB 


38 








SEC 


t^PWTffliiiih. K ' 


0ABC 


C6 


11 






DECZ 


HSPNTH chanoed. C^t f 


0ABE 


C6 


10 






OECZ 




0AC0 


90 


2D 






BCC 


DECRTN ii only WSPNTL chanoed. 


0AC2 


8A 








TXA 


MSPNT-CXX-DFF: C^^l 


0AC3 


48 








PHA 




0AC4 


AE 


5B 


EF 




LDX 


BANKRS which bank? 


0AC7 


08 








PHP 


(C=l)* 


0AC8 


AD 


58 


10 




LDA 


SOURCE siftr^ f]# liiir;l^isnar o 


0ACB 


E9 


01 






SBCIM 


f01 (Base - 1) ^ *5F,3F,29 (carry is set) 


0ACD 


C5 


11 






CMPZ 


NSPNTH BASE<CHP>WSPNT * is pointer under BASE? 


0ACF 


B0 


04 






BCS 


D E C B i ^ a 1 r e ail V h ftt aii mi ar t n l ttur k s aa r e^ 


0AD1 


28 








PLP 




0AD2 


18 








CLC 


flag for O.K. 


0AB3 


ft 


18 






BCC 


DECRT alMavfis ftttll into MorkftDAcef Csfl 


0AD5 


E6 


10 




DECB 


INCZ 


WSPNTL MSPNT=BASE-1 (FF); increment ^ BASE (00) 


0AD7 


28 








PLP 


Afl A i n A Mk4 #li kAiik? (C8 il # 


0AO8 


F0 


0F 






BEQ 


DECR if bank was 0. 


0ADA 


30 


0A 






BKI 


DEC if no banks in use (FF). - 


0ADC 


C6 


10 






DECZ 


MSPNTL bank mmm InterMdIiiffi ilPifL # fiP»l-i/FPl 


0ADE 


20 


AF 


0F 




JSR 


SWAP AM AO VP buffpr 4roih Hacp fn fnn n4 nr avi ntie hAiiV 


0AE1 


18 








CLC 


C-0, ok; noH banl(-0 or 1 


0AE2 


A2 


BF 






LDXIH 


TOPINT / top of interaediatt banks 


0AE4 


CA 








DEX 


WSPNT •> SBEFF 


0AES 


2C 








s 


BIT 


0AE6 


A2 


2A 




DEC 


LDXIH 


BASENB / there are no banks in use; WSPNT= I2A00 


BAEe 


2C 








S 


BIT (C«l»« , 


0AE9 


A2 


60 




DECR 


LDXIH 


BASEB0 / bank Mas already 0; NSPNT- «6000;(Csl)* 


BAEB 


86 


11 






SIX 


MSPNTH > «2A0e/6ttt/BEFF 


0AEO 


68 






DECRT 


PLA 


C»l or C=0 


0AEE 


AA 








TAX 


restore X 


0AEF 


68 






DECRTN 


PLA 


restore Acc 


0AF0 


60 








RT8 
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Ef E SOS 



K E: M M E R 



195401 
t9S5lt 

19568: 
195701 
IfStfv 
1959B: 
19610t 
196201 
196301 
196401 
Ifiitt 
19660: 
19670: 
196001 
19690: 
19700: 
197101 
19720: 
19730: 
197401 
19750: 
19760: 
197701 
19780: 
19790: 

I9i0fi 

19810: 
19820: 
If^l 
t9640: 
I90S0: 

ifSiit 

19870: 
19880: 
19890: 
19900: 
19910: 
19920: 
19930: 
19940: 

iffiii 

19960: 
19970: 

if^lt 

19990: 
20000: 
ttilfi 
20020: 
20030: 



0C30 18 

0C31 E6 10 

0^33 D0 59 

0C35 48 

0C36 E6 11 

•est AS 11 

0C3A CD 59 10 
0C3O 90 4E 

0C3r Si 

0C40 48 

0C41 AE SB EF 

0C44 30 41 

0C46 EC 5E EF 

0C49 90 05 

0C4B 20 El 0F 
0C4E B0 34 

0CS0 98 
0C51 48 
0CS2 A|-t0 

0CS4 B9 00 6F 
0C57 99 00 IB 
0CSA C8 
OCSB 00 F7 
0CSD 2i S7-^il 
0C60 EC SE EF 
0C63 90 08 

18 

0C66 A9 C0 
0C68 8D 59 10 
tC6B D0 09 

0C6O A2 40 

mm if S8 10 

0C72 CA 

0C73 BE 57 10 



20050: 0C76 69 00 EB 

20060: 0C79 99 00 40 

20080: 0C7D D0 F7 

20090: 0C7F 68 

211 81 1 Km m 

20110: 0C81 A2 40 

20120: 0C83 2C 



#«««« INCREHENT NQRKSPACE POINTER *•«•« (2500) 
Acc, X «nd Y rtg. trc lavid 

iMU.ff (fi^#r ¥ im^fP'mmf t^i (i^ bankf in UM) 
INTERMEDIATE BANK («BEFF) ^ NEXT BANK (t4ilil 
LAST BANK («BFFF) ^ BANK.0 ($6000) C-1 

Return with C=0 if still into workspace 
or with C«l if the top of source-fpace nas reached 



INCNSP CLC 

INCZ WSPNTL 
BNf 

PHA 



tmmn titi - 

save Act. MSPNTL-00 

INCZ NSPNTH 

LDAZ ■ ■■ ■ 

CMP SOURCF top of workspace? (top of bank?) C0 or BF 
BCC INCRT if still in Norkspace return with C>0. 

TXA nfPitTH'it^fitp miQmmm mu ^tmm^^t^^ 

PHA save index X 

LOX BANKRG banks in use? 

BHI IMe ff*«d btntV (ftfi TOP of WO«K§#AiJ fitirH'Jillft C-1 

CPX LASTBK BANKS IN USE: last bank? 

BCC INCSMP if bank was not the last, with C»0. 

: ^ou tn .'litt iiglfaei^grtge to itnk.il m^" 

INCSPD JSR DOWNS swap down (bank.X 4-^3 3-^2 ZH H^i carry") 

6CS INCLDX always (C»l) 

C>0 



INCSWP TYA 
PHA 

LD¥iH tee 



tNe bank Mis net the last} C'i 



INCSMA LDAAY TOPINT (IBF00) 

STAAY'swifzrtifii i«ftc ^^fie> 

INY swap bufliP 

6NE INCSMA t ■ 
^ ^ trim vMfntifit <|it,8TX,STX)> switch to n«icl^^ia«i -'^^ 

CPX LASTBK la*l flow? • 

BCC INCP 

fLG falling into laet bank: no buffer at top-'^-'' 

'tDAIM TOPLBK / 

STA SOURCF interaediate bank ^ last bank: change SOURCF 

BNE INCN8 alNayt niih C«0 ''<^' - 

INCP LOXin BASINT / int#iiaiate bank 

8TX sower 

DEX bank.0 ^ bank.l: change SOURCE 

STX SOURCH C-0 

INCHS LOAAY SWAPZN swap buffer back . 

8TAAY BASINT (M000) 

BNE INCN8 {Y>ee 
PLA 

TAY ^;t,: 

LDXIN BASINT / bank>l, 2, 3 or 4| HSPNT* fieeef G«e 

> BIT NV-Z flags 
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2f B 5 □ S 



KENMER 



201301 
201481 
201501 
201601 

29im 

20180t 

201901 

2iitll 

202101 

202201 

2f23ii 

20240: 

202501 

202601 

257601 
257701 
257S0: 
25790s 
25800: 
25810: 
25820: 
25830: 
25840: 
25850: 
25860: 
258701 
25880: 
25890: 
ISf08: 
25910: 
25920: 
25930 { 
259401 
25950: 
25960: 
25970: 
25980: 



•€04 A2 60 
ICS6 2C 

•^7 A2 2A 
0Ce9 06 11 

if 

mm m 

0CtD 68 
0C8E 60 



0F68 A2 00 
0F6A 8E FF F7 
0F6D AC 5B EF 
OF70 10 09 

0F72 Cfi 
0F73 8E 58 EF 
0F76 8E 5E EF 
0F79 D0 25 



« 

Milii 

26030! 

26040: 

260501 

260601 

260701 

26080: 

26090: 

26100: 

2ifl0: 

26120: 

261301 

2614it 

26150: 

26160: 

2ii?it 

261001 



0F7B 8E 
0F7E A2 
0F80 8E 
0Fe3 8E 
0F86 CA 
0F87 8E 
0F8A A2 
0F8C 8E 
0F8F CA 
0F90 8E 
0F93 A2 
0F95 8E 
0F98 8E 
0F9B A2 
tF9D 8E 



5B EF 
60 

58 10 

58 10 

57 10 
C0 

5£ 10 

59 10 

40 



10 



5A 
5D 10 
2A 

5C 10 



iHcm j;sEB. / , 

BIT W-f fUgt (c«n# 
INC LDXIH BASENB ^ noj^ «iFI*T-#|AW, (t-ot 



STXZ WSPNTH 

INCR PLA 
TAX 



rMtore index X 
restore Acc 



INCRT PLA 
INCRTN RT8 

#«# SET BANK ZERO ### SET THE MEMORY MAPPIN8 ### 

SETBK0 LDXIM 100 

STX BANKSW select always bank.O 

BANKR6 which bank? FF or 00, 01^02*0 
SET^^M if liankt in uff. 



LDY 
BPL 



DEX 
STX 
STX 
BME 



SETMEH STX 



(FF) ««« NO lANKS IN Uii iif 
WN^ MA Miory-Mt if «Irt«dy ..ti «»« r,id fret dsk 

RE6B always. 

(00) ### BANKS IN USE i## 
BANKR6 save bank number (00) < 
LDXIM BASEB0 / set bank.O eteory mo 
STX SOURCE source ^ $(,Siqo 
STX SYMF syebol up to $6000 
DEX (5F) 
STX SOURCM source - 1 « iSFff 
LDXIM TOPNBK / , 
STX OBJECT object coite iiCtCBflo 
DEX (8F) 
STX IftWfF lource up to IBFoo 
LDXIM BASINT / 
STX SYMBOL syebol « «40oo 
STX XRFMAX xref up to I40oo 
LDXIM BASENB / 
STX XREFST xref » «2Aoo 



OFAO AE 57 10 
0FA3 86 11 
0FA5 A2 FF 
0FA7 86 10 
0FA9 E8 
•FAA 86 15 
0FAC 86 16 
0FAE 60 



•#» RESET WORKSPACE POINTER 
TO THE START OF THIS BANK 
AUt LH|f-«li«B£R Ta itet # (2SF4) 



RESB 



0' R •> 



|Bf ll.rt of source-file einus 1 (29/5F/3F/3F) 

STX WSPNTH workipact peintvr * txxFF 

LDXIM IFF 

STX KSPNTL 
INX 00 

STXZ LNUMBL line nunber ■ eOAi 

STXZ LNUMBH 

RETURN RT8 X«00 ^ ' 
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KENMI 



261901 






262001 






26210: 






262201 






26221t 


• . . \ 




262301 






26240: 






26250: 






26260: 


BFAF 98 




26270: 


0FBe 48 




26280: 


8FB1 A0 00 




26290: 


0FB3 B9 00 


40 


26300: 


0FB6 99 00 


EB 


26310: 


0^FB9 C8 




26320: 


0FBA D0 F7 




26330: 


0FBC CA ' 




26340: 


tFBD 2f 3A 


10 


26350: 


0FC0 F0 07 




26360: 


0FC2 A9 Bf ^ 




26370: 


•Ft* ffC**8f^ 


11 


26380: 


IFC7 M IB 




26390: 






26400: 


0FC9 A0 60 




26410: 


0FCB 8C 58 


te 


26420: 


0FCE 88 




26430: 


0FCF fC 57 10 


26440: 


0FD2 A0 00 




26450: 


0FD4 B9 00 


EB 


26460: 


IFtf 00 


BF 


26470: 


0FDA C8 




26480: 


0FOfi 00 F7 




26490: 


6 8 




26500: 


0FDE A8 




26510: 


0FDF 8A 




26520: 


OFEB 60 




26530: 






26540: 






265S0I 






26560: 






26570: 






26571: 






26580: 






26S90I 


0FE1 20 AF 


0F 


26600: 






26610: 


0FE4 F0 02 




26620: 


0FE6 10 F9 




26630: 


0FE8 60 




26640: 






26650 1 


2&M9t 






26670: 






26680: 












26700: 


0FE9 68 




267101 


0FEA 85 eC 




267tff 


•FEt 68 




26730; 


0FED 85 0D 




267401 


0FEF AD 5B 


EF 


W^Mi 


iFF2 48 




2i760i 

38 


BFFS AS 10 





ft* 8MAP BUFFER FROM ONE BANK'S BASE 
TO m PRfVlOOS lAHK'f TOP *•* 

X «uit coat loaded Mith bank nuabtr a. 

X-X-lj Y is aavBdj V and C Hags unchangedj 
N and Z flags sat according to X reg. (bank.x) 

8MAPDN TYA . 
PHA 

LDYIN 100 sNap bufftr at baM to tiapionc 

OECSHA LDAAY OAS I NT 

STAAY SNAPZN 
INY 

BNE DCCSNA 

DEX change (decreaent) bank: X»3 or 2 or 1 or 0 

JSR 8T8BNK (STX,8TX) C" 

BEQ DECSW if bank.0 now. 

LDAIM TOPINT / last bank interaediate bk. change top 

8TA 80URCF 

Ire 0CC8NP alttaya. 

OECSM LDYIH BASEB0 / bank.l bank. 8 i set base address 

STY SOURCE 
DEY 

STY SOURCM 

LDVIM f00 

DECSWP LDAAY SWAPZN swap buffer back: fron swapzone to top 
STAAY TOPINT " 

INY 

BNE DECSWP 
PLA 
TAY 

TXA set fla^s according to bank.X 

RTS " ::^|rFf "^tlMiii|td -c-- '^ifj. 



i .1'. i . 

, n r 



't \i •• V.' 



*** SWAP DOWN EVERY BANK'S BUFFER 

Swap flodified lines over the previous, unaodified ones. 
X eust be loaded with bank nuabtr (EOF) beforehand 

DOWNS JSR SWAPDN swap buffer at base to buffer at top 

carry unchanged) X«X-1 
DNSWAP BEQ DSPRTN if bank.0 no aore SMapsf retiirn. 

BPL DOWNS if not yet bank.0. 
DSPRTN ITS ' no ^#"1^*6, if no banks in ufti C-. 

§•« SAVE PRESENT BANK REGISTER 

AND ITS POINTERS ONTO THE STACK «#* 

SAVBNK PLA only N and Z flags change _ - 

STAZ STACKA save return address 
PLA 

STAZ STACKS 
LDA BANKR6 

PHA save pointtrt onto the stack 

LDAZ N8PNTL 



«• ■ Mi 





wr r w 


4fi 






PMA 

rnn . 






Wr r 0 


AS 


1 i 




i nA7 

LIIN4 


yCPMTU 


7A790I 

iLO f 7 0 i 


cr r o 


4R 

tQ 






PUA 

r nH 






flPF9 
wr r T 


AD 


57 


A U 


1 nA 

Ll/H 


QDllRfM 


9APtflii 


nr r b 












9Afl9Cli 


wr r 1/ 


An 

Hi/ 




t A 

av 


i HA 


eniiprc 


?Afl:^fli 


1 Ada 








PUA 
rflH 




94fi4fl 1 

AOO'rO 1 


A Uw 1 


An 

Hi/ 


■so 


1 A 
A V 


i flA 


aUUfCwr 


26850s 


1004 


48 






PHA 




268601 


1005 


A5 


0D 




SAVRST LDAZ 


STACKS restore return address 


268781 


1007 


48 






pm 




2688ee 


1008 


A5 


0C 




LDAZ 


STACKA 


268901 


100A 


48 






PHA 




269001 


tl0B 


60 






RTS 





27240 
27250 
27260 
27270 
27280. 

27300 
27310 
27321 



«»« RESTORE THE PREVIOUS BMK AND ITS PQIMTER8 ««• 



269601 


100C 


68 






RSTBNK PLA 






26970! 


100D 


85 


0C 




STAZ 


8TACKA 


save fitiirn iddrtit 


26980! 


100F 


68 






PLA 






26990! 


1010 Si 00 




if#i 


STACKS 




27000! 


1012 


68 






PLA 




restore pointers 


27010! 


1013 


80 


59 


10 


STA 


SOURCF 




27020! 


1016 


68 






PLA 






27030! 


1017 


80 


58 


10 


STA 


SOURCE 




27040! 


101A 


68 






PLA 






27050! 


10 IB ti 57 










27060! 


101E 


68 






PLA 






27070! 


101F 


85 


11 




STAZ 


WSPNTH 




27080! 


1021 


68 






PLA 






27090! 


1022 


85 


10 




STAZ 


Nspm 




27100: 


1024 


68 




■•'u 


PLA 






27110! 


1025 


86 


FD 




SI « 


Tmpx 




27120! 


1027 


AA 






TAX 




get bank froi etack 


27130! 


1028 


20 


30 


10 


JSR 


SETBNK 


set bank.X 


27140! 


102B 


A6 


FD 




LDX 


TEMPX 




27150! 


1020 


4C 


05 


ti 




iA¥i8T rcvii^ rvturn tdifi 


27160! 












I'r '■ ■ loll 


271701 














27180! 
















271901 










SET BANKK.X **» 




272001 
















27210! 


1030 


10 


08 




SETBNK 6PL 


STOBNK 


if banks in usi 


272201 


1032 


A2 


FF 




LOXIM 


*FF 


if no banks 


2ff3it 


1034 


8E 


5B 


EF 


STX 


BANKR6 flag it for shure! 



1037 
1038 

103 A 

1040 



E8 

FO 03 



INXBNK INX 
BEQ 



8E SB EF STOBNK STX 
et ff'fj STX 
60 RTS 



(00) 

STOBNK f03 always. 

BANKR6 bank rigiiUr 
BANKSW bank iMitch 



■ :.-,r--.l o-<7 
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273301 










273401 










273501 










273601 


1041 


8A 






273701 


1042 


48 






273801 


1043 


20 


Al 


29 


27390: 


1046 


62 






274001 


1047 


61 






27410: 


1048 


6E 






27420: 


1049 


6B 






27430: 


104A 


2E 






27440: 


104B 


03 






27450; 


104C 


68 






27460: 


104D 


20 


7E 


F5 


27470: 


1050 


20 


Al 


29 


27480: 


1053 


3B 






27490: 


1054 


20 






27500: 


1055 


03 




C / ■ 


27510: 


1056 


60 






27520: 










27530; 










27540: 










27550: 











•** PRINT THE NUMBER OF THE BANK IN ACC OR X REG 



PBANKX TXA 
PBANKA PHA 
JSR 



PLA 
JSR 
J88 



PRINTV "birill?^^ 

'b 

'* 

•n 
•k 

ETX 

PRNIBL nuRber 
PRINTV "f • 
I 

8?., . 



mi 



FATE £5 C Ftint Uiler/^teiMA^ 

fm mmmmmmmiif§ mmmh m and tm. 

Mi iiiiirlisting of the tM v#fsl««, 
Mm^Mf Hfl. 119,50 to H.v.Mi tettroclmitte 110,00) 

fm mm UmffUmmBtmiUf for Elektor's jUNIQR- 
coiputer with DOS of Koen van Nieuwenhove, 6elqiua# 
ftSK FOR PRICES. 

Infonation about the DOS is also obtainable. 

TOKENIZED Hicrosoft Basic KevMords and addresses KIM-l and 
Elektor's JUNIOR KB-9 Basic. 
U.L van Pelt. The Netherlands. 

Send ehepe of Mfl. 14,S0 te y.Lv«Pitl imf9Smmi^9im'^^ 

^ J ^) i ? in 0 -1 V n i'^ 
TOKENIZED Microsoft Basic Keywards and addresm SYM^i 

Basic. 

van Pelt The Netherlands. 
Send cheque of Hfl. 14,50 to W.L.v.Pelt (Eurocheque 5,00) 

TOKENIZED Microsoft Basic Keywords and addresses 
Basic. 

y.L. van Pelt. The Netherlands. 

^nd cheque of Hfl. 14,50 to U.L.v.Pelt (eurociipl %^ 

TOKENIZED Microsoft Basic Keywords and addresses flPPLEsoft 

y.L. van Pelt. The Netherlands. . 

Send cheq<^ of Hfl. 14,50 to U.L.v.Pelt MM)cheque 5,00) 

TOKENIZED Microsoft Basic Keywords an(i jM(Mmi>^ ^ 
and CBM 80XX. Coftdodore Basic 4.0. 
Nico de Vries The Netherlands. 

Send cheque of Hfl. 14,50 to W.L.v.Pelt (eurocheque 5,00) 

TOKENIZED Microsoft Basic Keywords and addresses 0-16 
CoModore Basic 3.5. 

Nico de Vries. The Netherlands. . i e i ^ s i « 

Send cheque of Hfl. 14,50 to H.Uv.Pelt (turoc^ipi ^1.1$^ 

TOKENIZED Microsoft Basic K^rds and addresses CBN 30XX 

CoModore asic 2.0. 

Nico de Vries The Netherlands. 

Send cheque of Hfl. 14,50 to W.L.v.Pelt (eurocheque 5,00) 

TOKENIZED Microsoft Basic Keywords and addresses VIC-20 

CoModore Basic V2. 

Nico de Vries, The Netherlands. 

Send cheque of Hfl. li,m to U.Lv.Pelt <eurechii|tti Mjm 



CENTRONICS PRINTER INTERFACE DEVICE 4 OR 5 ON COMMODORE 64 

Ruud Uphoff, The Netherlands. Machinecode. 

Send cheque of Hfk 15,00 to H.Uv,Pelt (eurocheque 5,50) 

THE VDU CARD 

Article to assure that Elektor's VDU card works ietl.- 

Software («achinecode) with introduction. 

Many eeebers of the ciuD use this stfti^ire instead of the 

software froe Elektor. ' 

Authors: J. J. A. and J. A. J. Janssen, The IHkiiei^laii^. ^ '^n 

Transl. : Willee van Asperen. 

Syste« : Elektor's JUNIOR coiputer with VDU card. 



THE GRAPHIC DISPLAY 
Article with scheiatic diagrai to di 
ting of grapns etc.) together witll I 
Authors: J. J. A. and J.A.J. Janssen • 
Transl. : Wille* van Asperen 
Systee s EleKtor's JUNIOR cotputer witn VDU card. 
PUM. J K 6502 KENNER 36, Ftbr. 1985, p. 5-11 
Send cheque of Hfl. 14,50 to W.L.v.Pelt (eurocheque 5 



rk (plot- 



00) 



EXTENSIONS ON 0S-65D V3.3 FOR ELEKTOR'S JUNIOR-coeputer. 
Bert Klein, The Netherlands. 

Dutch version published in DE 6502 KEf^ER nr.39, Aug. '85. 
With the new DOS-co«(iands : 

DI to supply the directory of a diskette, SD to replace 
the old DI coiaand in 0S-65D, FO to for*at a diskette and 
to write an eiipty directory to track 12, CR to write a 
filenaae into the directory with trackrange to natcn, D£ 
to delete a filename fro« the directory, CH to cnange 
filenaael into filenaie2, NU to lupply the nuftoer of 
tracks by the Basic of assefnbly sourcerile. With four 
coMiands for further extensions! FT to load the FORTH 
interpreter/coepiler WF to wartstart the FORTH, MA^ to 
load the aacro asseiiiltr by C. .tis^i 
Moser-assetDler. * 
Complete Enqlish assembly source listing with introduction^ 
for users or JUNIOR, but easy to adapt on your OCTOPUS, .i 
Send Cheque of Hfl. 17,50 to y.Lv.Pelt (^roche^ , |^ 

PATCHES ON KIM-l MICROSOR BASIC FOR ELEKTOR'S JUNIOR-coep 
Koen van Nieuwenhove, Belgiua/W.L. van Pelt, The Netherl. 
With PMODE^ TRACE, STEP RESET- PRINTER PS., VIDEO, AUTO, 

mmmk im«sm. edit ii% mm. 

^li^ fif Hfl. 24,50 toJiL^A^f (eurocheque 15,00) 



40 




i 



10REt1 RTTY TX/RX VAN 

20REri F.VERGOOSSEN (PA3ELB) 

30REM fiL««4m*lf72 

40REri TTL IN PC3 VAN 8255 

50REf1 (MARK="1" SPACE="0") 

immn AFSK gut PB? van 6522 

70REri (BLOKGOLF) 

80REI1 PTT OUT PB6 VAN 6522 

90REM <TX="1" RX="0") 
100P.$12;?#E1=0:P. "BEDIENEN ALS V 
110P."m = riENU""'r = RX"'"t = TX" 
1 20P . " c = 'Cy^m«'*» '4) ' BUFFER " " 
130P."EVEN GEDULD A.U.B./' 
140REI1 RESET URCVEC ' ' ' 
1 50?#209=#FE : ?#208=#52 
160C=1000000;REh CLOCK FR^qi..% 
170DiriII40,TT40,RR40,ZZ40 
180F.Z=0TO40 
190IIZ=#FFFF:TTZ=#FFFF 
200RRZ=#FFFF;ZZZ=#FFFF ^ " ' • - ^ * ^ ■ 
2 1 0N . : D I MK255 , Tf 6 , R82 , Q- 1 
220$K="HIER UU CALL": REM CALL 
230REri CU SNELHEID 10-30 UPM ' 
240V=20 

250J=C*3/(5*V)-1:1FJ/256>25SE;^,^^:;, .. , 

260REf1 BAUDOTTABEL 'AP-AM 

270 ! R=# 1 20E 1 3 1 8 : R ! 4=#050m^.l 0 : R ! 8=#09 1 E l A0C 

280R! 12=#0D030607;R1 16=#01^^ig^t^2M:17190Fl C 

290R!24=#1115 " ' ' ■ 

300REM MORSETABEL 

3 1 0R ! 26=#00000052 ; R ! 30=#6D2D5E00 : R ! 34=#6 1 732A 1 9 
320R ! 38=#3E3F296A ; R ! 42=#2030383C : R ! 46=#2F27232 1 
330R ! 50=#3 1350047 5 R ! 54=#06004C2A : R ! 58=#0209151 1 
340R ! 62=#04 1 00B 1 4 : R ! 66=#07 1 20D 1 E ; R ! 70=# 1 B 1 60F05 
350R ! 74=#0C03080A ; R ! 78=# 1 0 1 90E 1 8 j R ! 82=# 1 3 

360GOS . 1 300 : mm m^m^^m'''^ - ^ ^--^ - 

370REn VOORKEURSINSTELLING 

380^.8=45. 45 :S=170:F=1275:I=0:G=1;D=1 5 A=3:E=1;N=1 
390GOS.810:GOS.950;6OS. 1160 
400Ll.I10:REn INIT SNELLE {^^■■^^■-" -^--^ . 
410Ll.lI18;REn INIT VIA •'^'^^B^AO ;^5 ! ! 

420P.$3$15$12t'?IKl=0;a=12 
430P . $30" MEMU aTTY TX/Rli;«;» ; v;; , 

440P."1 BAUDRATE "ZB " 

450P."2 SHIFT "S 
460P."3 LAAGSTE FREQUE«if|;E"p 
470P. "4 POLARITEIT 
480IFI P."MHSL" 
490P."5 BLANK JEMM 
500IFG P."UIT" 
510P."6 AUTO CR/LF 
520IFD P."UIT" 
530P."7 UNSHIFT ON SPACE 
540IFA P."UIT" 
550P."8 STOPBIT 
560IFE P."l .5" , ' " 
570P. "9 LEESTEi«feNS^ 
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";IFA=0P*"AAN' 
":1FN=1P,**INT* 
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560IFN=2P." UU" 

600P.' "r = NAAR RX" 
610P.' "t = NAAR TX" 
i§1^P*»"b * yiJZIG BUFFER" 
630Z=0:LI.I11 7^M^,|^S:^ TOETS 
640REM r=RX 

6301FZ=1 14P.$12$2;LI .RR0se*4f0 

660REM t=TX 

670IFZ=116P.$12$2:L1.TT0:G.420 
6mmn b=BUFFER 
690IFZ=98G.1200 
700REn 1-9 

7 1 @I F f <4f OtI >5f © . 630 

720Z=Z-48:GOS.730;G.430 

730IFZ>1S.830 . 

740REM BAUDRATE 

750F I F'/iB<50°^B=50 : G . 8 1 0 

760FlF?iB<575jB=57;G.810 

770F I F5iB<75J4B=75 : 6 * 8 1 0 

780FIF'4B<100^B=100:G.810 

790F1F^B<110?'.B=110;G.810 

§@0Fir^>45 . 45?£B=45 . 45 

8 1 0B=C/^B- 1 } IFB/256>2556 . 750 

820R. 

a90IFf>28.#10 

840REf1 FREQLIENTIESHIFT 

850IFS<170S=170:G.950 

8601FS<300S=300 J§ . 950 

8701 FS<425S=425:G. 950 

880IFS<850S=850 : G . 950 

890IFS< 1 000S- 1 000 ; G . 950 

900IFS>85S=85:G.950 

fliIFZ>3G. 1020 

9mwm LAAGSTE FREQUENT IE 

930 1FF<2125F=2 125:6.950 

9401FF>1275F=1275 

950H=C/2/ <F+S ) -2 j L=C/2/F-2 

960IFL/256>255G.930 

970REn POLARITEIT 

980IFl=0Y=LtL=HtH=sY 

990REn INIT VIA 
10001F1=8ANDZ=2ORZ=3ORZ=4LI .1120 
1010R. 

10201FZ>8G. 1 140 
1030REn POLARITEIT 
1 04@IFI»4 1=8- I i & . f 50 
1050REf1 BLANK TEKEN 
10601FZ=5G=1-G 

immm «jf © CR/LF 

1080IFZ=6D=1~D 

1090REn UNSHIFT ON SPACE 

1100IFZ-7A=3-A 

1110REri STOPBIT 

11201FZ=8E=1-E 

1130R. 

1140REf1 LEESTEKENS 
1150N=N+1 ; IFN>3N=1 



42 



1160$T="-?:e3eee8b() . .9014' 57=2/6+" 

11 70 1 F N > 1 : T ?3=36 ; T?6=38 ; T?7^35 ; T ?2 1 =59 1 

■■ ■■ ■■ T' itpn.- ^- ) . 

T?25=34 

1 1 80IFN=3 : T?5=33 : T?7= 101; T?9=39 j T? 1 8=9^ 

1190R. . . .- . 

1200P. $12 "BUFFER,; Cm=l1ENU),"' 

1210U=#8200 ' w I * 

1220L1 . 11 17; lFZ=l271Fy>«8200ysa-l :P.$Z 

1230IFZ=127G.1220 , 

1 240?U=Z ; P . $Z : IFf '= 1'3P . * 1 0 

12501FZ=109G.420 

1260U=U+1 ;IFU<#9FFFG. 1220 

1 270?U= 1 09 1 P . ■••BUFFE R VOL " 

1280P.' "DRUK RETURN" 

1290DOL1.II17;U.Z=13;G.420 

1 300P . $21 i F . Y=0TO 1 ; P=Q ; C 

1310: II0\URCVEC 

1 320LDAaiI U256 : STA#208 

1 330LO*iSiiI ! 1 /256 : STA#209 

1340RTS 

1350:H1\PRINTER 
1360PHA\SAMfe A 

1370\CTRL B 

1380CnPa2;§gQlI2 
1390\CTRL C 
1400CnPa3:BEQII5 • 
1410\NORriAAL LF 
1420CriP#FE;BEQII4 

.1430\TEST NAAR PRINTER - . , 

1440LDA#B80C : ANDa#E : BEQl 14 
1450\TEST PRINTER AAN 
1460B1T#B801 :BM1II4 . 
1470PLA\LOAD A 
1480\NAAR PRINTER 
1490STA#B801 , . . 

1500PHA\SAVE A 
1510LDA#B80C 
1520ANDa#F0:ORAa#C' 
1530STA#B80C r ; 
lS40ORAa2:BNEI13 
1550:II2\PR1NTER AAN 
1 560LDAa#7F : STA#B803 
1570LDA#B80C ' " 

1580ANDa#F0:ORAa#E 
15^0:H3\AAN OF UlT ! , 

1610:II4\E1NDE 
1620PLA:JI1P117 
1630:II5\PRINTER UIT 

1640LDA#B80C 

1650ANDa#F0:BCSlI3 , . 

1 660 :1I7\SAVE REGISTERS 

1 670PHP : PHA : CLD : STY#E5 : STXiE4 

1680\SCHRIJFROUTINE 

1690JSRII8 

1700\LOAD REGISTERS 

1710JMP#FE5F 

1720ai8\TEST CTRL COiES 
1730\TEST SCHERM AAN 
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1740CnPa6;BEQI113 
1750\¥IST SCHERM UlT 
1760CWi21 JBEQII14 v 
1770\TEST CURSOR POSITIE /' 
1780LDY#E0jBf1IIIi5 " 
1790\TEST ESCAPE ; ' . . 

1800CI1Pa27;BEQII13 
1«10\TEST PIEPTOON 
1820CnPa7jBEQII16 
1830\ZOEK CTRL-CODE OP 

immmiu 2% Loxa 1 0 $ jsr#fec5 

1850\NIET GEVONPEN 
1860BNE119 

tmmmm code uit 

1880JI1P#FEB7 
1890:II9\TEST CODE 

if00cnpa#20 

1910\CONTROL CODE 
1920BCC1I12 
1930\BEPAAL BEELDCODE 
1 940AD Ca# 1 F : BMI 1 1 1 0 ; EORa#60 
1950:1I10\KARAKTER OP SCHERM 
lf^gSf A4#iE) ,YUNY 
1970\TEST EINDE REGEL 
1980CPYa#20;BCCIIll 
l^WOLtENDE REGEL 
2000JSR#FDEC:LDYa0 
>010:II11\SAVE INDEX 



2020STY«ii 

2030:1I12\CIJRSOR ON/OFF 

2040PHA:LDA(#DE) .Y:E0R#E1 

2050STA(#DE) ,Y:PLA 

2060RTS\TERUG 

2070: 11 13\KARAKTE RHODE 

f ig®€LCt LOXa0 :STX#B000 

2090: II 14 

2 100LDXa2 : PHP : ASL#DE . X 

2iimpitot*iJi.x 

2120:II15RTS\TERUG ' 
2130:1I16\P1EPTOON ^'-^ J.;'«iAi 
2i 40LDAa5 J LDYa64 : Jf#«%fW ■ 
2150:II17\TOETSLEESROUT1NE 
2160JSR#FFE3:STA#33B:RTS 
2170:1I18\INIT ^^lA 
2180\INTERRUPTS UIT 
2190LDAa#7F:STA#B80E 

wm\pm*7 OUTPUT 

22 1 0LDAa#C0 : STA#B802 
2220\CONT UITVOER P87 

2240\CLEAR FLAGS 
2250LDAa0:LDXa#10 

2270DEX:BPLII19 
2280\f1SB VAN BUFFER 
2290LDAa#60 : STA#8Et*T»#liF 
2300:II20\nARK 
2310LDA#329:STA#B804 
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2320LDA#344 ; STA#B805 
2330RTS\TERUG 
2340:RR0\START RX 
2350\PTT=0 
2360LDAa0 : STA#B800 
2370\UNSH1FT 
2380STA#82 
2390\RX INDICATOR 
2400LDAai46:STA#81FF 
2410\POORT C INPUT 
2420LDAa#8B : STA#B003 
2430:RR2\READ KEY 
2440JSRTT28 
2450\LAAD TOETS 
2460LDA#84 ^ . 

2470\TEST t=TX 
f480CI1Pai 16;BNERR4 
2490LDAai3:STA#81\CR+LF 
2500JSRRR27\DRUK AF '! 
2510\CLEAR FLAG 
2520LDAa0:STA#88 
2530JMPTT0\TX 
2540:RR4\TEST m=f1ENU 
2550CnPai09:BNERR10 
, 2560RTS\nENU IN BASIC 
2570:RR10\riETING 
2580LDA#B002:ANOa8 
. 2590\POLARITEIT 
2600EOR#32A ' ■•^ ■ ' 

2610BNERR11\SPACE 
2620\MARKINDI GATOR 
2630LDAai 12:STA#81FD 
2640BNERR2\TERUG irl.. 
,. 2650:RR11\BITTELLER ' " 
2660LDAa4:STA#80 
2670:RR12\BAUDRATE TELLER 
2680LDA#323 : STA#B808 
2690LDA#33E : STA#B809 
2700\RESET DUURTELLEt i' 
, 2710LDAai28:STA#8A 
272t\READ KEY 
2730JSRTT28 .. 
2740:RR13\[1ETING 
2750LDA#B002:ANUa8 ' ' 
2760\POLARITE1T 
2770EOR#32A 
2780BNERR14\SPACE 
,. - 2790\nARK ' • ' 

28001NC#8A:BNERR16 ' "' '' 
2810DEC#8AsBNERR16 
2820:RR14\SPA(.:E 
2630DEC#8A;BNERR16 ' , 
2840INC#8A 

2850:RR16\TEST EINDE TELLER 
2860LDA#B80D : ANDa#20 : BEQRR13 
" 2870\NEG=f1ARK POS=SPACE 
2880LDA#8A:CnPai28 
2890\SPACEINDICATOR 
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2900LDAa67;BCCRR18 
2910\TEST EERSTE BIT MARK 
2920LDA#80 : CflPaa : BNERRl 7 
2930BEQRR2\OPNIEUU 
2940 : RR 1 7\I1ARKINDI CATOR 
2950LDAail2 

2960:RR18\1NDICATOR ...... 

2970STA#81FD 
2980ROL#80\SCHUIF BITS 
2990BCCRR12\'v'OLGENDE BITS 
3000LDA#a0\BAUDOT 
30f@f\yOf?D SPACE 
3020Cnpa4:BNERR19 .'^ 
3030\UNSHIFT ON SPACE 
3040LDA#82:AND#322:STA#82 : 

3050\SPAT1E . , / . , 

3060LDAa32;BNERR26 

3070: RR19\eAtRI AGE RETURN 

3080CnPa2:BNERR20 V- 

3090\RETURN 

3100LDAai3:BNERR26 

31 10:RR20\FIGURES ' - ^ .\ 

3120CI1Pa27;BNERR21 

3l3@LeASll tSTA#82 : JriPRR2 

3140:RR21\LETTERS , 

3150CnPa31 ;BNERR22 ' , ■ 

3160LDASl0:STA#82: jnPRR2 ' ' ' ■ 

3170: RR22\VERTALING 

3180LDYa25\TELLER 

3190:RR23\VERGEL1JK 

3200CriPR.Y:BEQRR24 

3210DEY;BPLRR23: jnPRR2 

3220:RR24\TEST FLAG 

3230LDA#82:BEQRR2b 

3240LDAT.Y;Jt1PRR26 ' 

325irf?tt5\ASCiiUAARDE 

3260TYA:CLC:ADCq)65 

3270:RR26\DRUK AF , 

3280STA#81 :JSRRR2t " • ' ^ ' 

3290jnPRR2\TERUG 

3300:RR27\CURSOR POSITIE 

3310LDA#DE : CnPa#E0 5 BNERR28 

3320LDA#DF:CMPa#81:ilii:tR^ , 

3330\LAAD t OF r ' 

3340LDY#81FF 

3350\UIS SCHERM 

3360LDAai2:JSR#FE55 

3370\ZET t OF r TERUG 

3380STY#81FF 

3390:RR28\OSURCH - i • 

3400LDA#81 :JSR#FFE9 
3410RTS\TERUG 
3420:TT0\START TX 
3430\POORT C OUTPUT 
3440L D Aa#8 A : STAi^0a- ' ': 
345e\PTT=l 

3460LDAa#40 ; STA#B800 
3470\eEEN (UN) SHIFT 



3480LDAa3:STA#82 
3490\TX INDICATOR 
3500LDAa 1 48 : ST A#8 1 FF 
3510\nARKINDICATOR 
3520LDAail2:STA#81FD 
3530:TT1\DUBBEL CODE 
3540LDA#83 : BEQTT2 : STA#80 
3550LDAa0 ; STA#83 \ JMPTTl 9 
3560 : TT2L DA#325 ; BNETT3 
3570\TEST FLAG 
3580LDA#88 ; CnPa64 : BNETT3 
35^0\AUTOt1ATISCH RETURN 
3600LDAai3:STA#81 : JMPTT13 
3610:TT3\READ KEY 
3620JSRTT28 
3630\LAAD TOETS 
3640LDA#84 
3650\TEST fsRX 
3660CMPail4:BNETT4 
3670LDAa 1 3 ; ST A#8 1 \ CR+LF 
3680JSRRR27\DRUK AF 
3690JMPRR0\RX 
3700:TT4\TEST m=hENU , 
37i0CnPai09:BNETT6 
3720RTS\MENU IN BASIC 
3730:TT6\TEST BUFFER 
3740LDA#87 : CriP#86 ; BNETT8 
3750LDA#90 : CnP#8E?BN£TT8 
3760\TEST FLAG 
3770LDA#85:BEQTT7 
3780\REPEAT KEY 
3790BI T#B002 : BVSTT7 
3800\ CLEAR FLAG 
38 1 0L DAa0 : STA#85 : BEQTT3 
3820;TT7\BLANK TEKEN 
3#t0LDA#328 : BNETT3 : JMPTT20 
3840:TT8\VERHOOG INDEX 
3i501NC#86:BNETT9 
3860\PAGINAGRENS 
3870INC#8E : LDAtSiJ CMPa«a0 
3880BNETT9 
3890\BUFFERGRENS 
3900LDAa#60:STA#8E 
3910:TT9\LAAD BUFFER 
3920LDY#86:LDA(#8D) .Y 
3930STA#81\SAVE ACCU 
3940\TEST c=CU-ID 
3950CriPa99;BNETT10 '■ 
3960JSRZZ0\CU 
3970JnPTT3\TERUG 
3980:TT10\TEST b=BUFFER 
3990CnPa98:BNETTl 1 
4000JSRZZ11\BUFFER 
4010jnPTT3\TERUG 
4020:TT1 1\TEST SPATIE 
4030CnPa32:BNETT12 
4040\UNSHIFT ON SPACE 
4050LDA#82 S AN0#322 jSTA#82 
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4060\yORD SPACE 
#i!7m.l»a4jSTA#80; JMPTTI9 ' 
4080:TT12\TEST RETURN 
4090Cf1Pai3;BNETT14 
4100iTT!l\rLfte tiSET 
4110LDAa#FF:STA#88 r ' f .vt=^;v 

4120\CARR1AGE RETURN 
413iL5^2jl?ft#83 

4140\LINE FEED ' i - . ' 

4150LDAa8; JnPTT20 

4160:TT14\TtST TOETS 

4170Cf1PS)91 ;BI1ITT15 

4180JriPTT6\TERUe . . .- 

4190sTT15\TEST tETTI^ ^ ' 

4200CI1Pa65:BI1ITT16 

4210\LAAD CODE 

422i"m¥ I L tWi^feS; ST A#&0 

4230\TEST FLAG 

4240LDA#82 

4fSi^tfT1t^AL OP LETTERS -- ^ 

4260LDAa0:STA#82 

4270LDA#80;STA#83 

4280\LETTERS 

4290LDAa31 : JI1PTT20 

4300:TT16\TEST FIGURE 

4310LDYif§^TELLeir'' - r 

4320:TT17\VERGEL1JK 

4330CnPT,Y:BEQTT18 

4340OEY:BPLTT17 ^- 

4350jnPTT6\TERUG 

4360:TT18\LAAO CODE 

4370LDAR.Y:STA#80 

4380\TEST FLAG ,• ; . 

4390LDA#82:CnPai 
4400BEQTT19\AL OP FIGURES 
4410LDAai :STA#82 . , ■ 

4420LDA#80;STA#83 i ^ 

4430\FIGURg®t'-- -'^"^ • ;■■ f.-,-. ' • - - n - .- • . 
4440LDAa27: JnPTT20 
4450:TT19\DRUK AF 
4460JSRRR2t^^-3' ' ^ . . 

4470\OPTELLEN FLAG Iri . 

4480INC#88;LDA#80 - •■ 

4490:TT20\seHyiF Blf€ 
4500SEC : ROLA : ASLA : STA#80 
4510:TT21\SCHUIF 1 BIT 
4520ASL#80:BCCTT22 
4530\nARK 

4540LDA#329 : STA#B806 

4550LDmm4.rBTmBmti'' -■<■■: 

4560LDAail2\riAtK ; ■ • ' 

4570BCSTT23 

4580:TTtf^SPACE 

4590LDA#32D : STA#B806 

4600LDA#348 ; STA#B807 

4610LDAa67\SPACE IND» 

4620 :TT23\ INDICATOR 

4630STA#81FD 



4640JSRTT26\UIACHT 1 BIT 

4650LDA#80;BNETT21 

4660L DA#326 : Bi®TT24 

4670JSRTT25 

4680:TT24\TERUG 

4690JMPTT1 

4700;TT25\U)ACHT 1/2 BIT ■ 
47iaLI>A#33E;LSRA:TAY ■ • 
4?20LDA#323jRORA 
4730STA#B808 ; STY#B809 
4740JMPTTf7\TEST EINDE 
4750!TT26\UACHT 1 BIT'<> 
4760LDA#323 ; STA#B808 
4770LDA#33E : STA#B809 
4780:TT27\TEST EINDE 
4790JSRTT28\READ KEY 
4800LDA#B80D : ANDa#20 ; BEQTT27 
4810RTS\TERUG • \ . v . - 

4820:TT28\SCAN KEYS • ■ 

4830JSR#FE71 

4840BCSTT38\GEEN TOETS ■ ' ' . 
4a50\LOCK+CURSOR N£G£R£N 
4g60CP¥a8 1 &eSff!29 
4870CPYa5:BCSTT3S 
4880:TT29\COPYTOETS NEGE.REN 
4890CPYai4:BEQTT38 
4900\ASCIIUAARDE v;- • ■ 

4910JSRTT40 

4920\TEST V0R16E TOETS 
4930CnP#84:BNETT30 
4940\TEST WASTHOUDEN 
4950LDY#8St^tTl^ i 
4960:TT30\TOETSyAARi€ j ■■, 
4970STA#84 
4980\TEST DELETE 
4990CnPa#7F : BNETT33 
5000:TT31\TEST BUFFER LEEG 
Sil@LDY#87:CPY#86:BNETT32 
5020LDY#90:CPY#8E:BEQTT37 ■ • 
5030:TT32\VERLAAG BUFFER 
5040DEC»8f tLDY»8?lC:PYSl#FF 
5050BNETT37 J, a - 

5060\PAGINAGRENS 
5070OEC#ft tLOY#90 j CPYa#5F 

5080BNETT37 
5090\BUFFERGRENS 

5100LDm#7FtSTY#90:BNFTT37 . . 

5110:TT33\TEST BUFFER VOL 

5120LDY#87:INY:BEQTT34 

51t0tPY#86:BNETT35\NIET WL • • " 

5140LDY#90:CPY#8E 

5150BNETT35:BEQTT38 

5 1 60 t Tt34\BUFFERGRENS 

5170LDY#90; INY:CPY#8£ . ■ " 

5180BNETT35\NIET VOL 

5 1 90LDY#87 j INY : CFYt86 

5200BEQTT38\V^OL 

5210:TT35\VERHOOG BUFFER 
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5220INC#87:BNETT36 

5230\PAGINAGRENS 

52401 NC#90 : L DY«9@ t CPmi^:- ^• 

5250BNETT36 

5260\§UFFER6RENS 

5270LDYa#60:STY#90 

5280:TT36\KEY IN BUFFER 

5290L DY#87 { ST A (#8F ) , Y 

5300:TT37\ZET FLAG 

5310LDAai :STA#85:BNETT39 

5320 : TT 38N CLEAR FLA© 

5330LDAa0:STA#85 ; ■ ' 

5340:TT39RTS\TERUG 

sasittfmAsciiwiARDe hey 

5360PHP:C;LD: JtlPtFEBl 
5370:ZZ0\nORSE.IDENTlFlCATlE 
5380L DAa 1 3 : ST A#8 1 \CR*LF 
5390JSRRR27\DRUK AF 
5400LDAq10:STA#8A 
5410\PAUZ£ 4 TELLEN 
5420LDASI8: JSRZZ9 
5430JZZ2\LEES KARAKTER 
5440LDY#8A:LDAK , YrSTA«81 
5450XTEST tlNDE ' ■ 

5460CHPa)13:BNEZZ3 
5470L&AiS:STA#82XtWlFT AF 
5480L DA3 1 3 : ST A#8 1 \ CR*LF 
5490JSRRR27\DRUK AF 
5500RTS\TERilG mm RTTY 
5510:ZZ3\TEST SPATIE 
5520Cr!Pa32:BNEZZ4 
5530JSRRR27\DRUK AF 
5540\SPAT1E 7 TELLEN (NOG 4) 
5550LDAa8: JSRZZ9 
5560BEQZ Z8\ VOLGENllE 
5570:ZZ^\TEST KARAKTEt. • ■ ' ■ 
5580CnPi)9i:BPLZZ8 

5SWCfiPi34 f irri If s- 

56y0\LEES nORSETEKEN 
56 10TAX : LDAR-8 . X ; STA#80 
5620BEQZ Z8\G€EN HORSETEKEN 
5630JSRRR27\DRUK At- 
5640:ZZ5\SCHU1F IN CARRY 
5650LSR#S0 

5660\CONTROLEER EINDE 
5670BEQZZ7 
5680\TOON If S^Of 
5690LDA#32DtSTA#8806 
5700LDA#348 : STAttB807 
S71#% INDICATOR ' 
5720LDAq)67;STA#81FD i • ■ 
5730LDAa2\PUNT 1 TEL 
5740BCCZZ6 

5750LDAa6\STREEP 3 TELLEl« 

5760:ZZ6\PAUZE 

5770JSRZZ9 

5780\PAUZETOON IS MARK 
5790LDA«329 : STA#B806 
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5800LDA#344;STA#B807 . 
5810\INDICATOR ' " " A ' " v 

5820LDAail2:STA#81FD 

5830LDAa2\PAUZE I TEL 

5840JSRZZ9 ^ crrr.-^^ 

5850jnPZZ5\VOL6ENDE 

5860:ZZ7\NOG 2 TELLEN 

5870LDAa4 

5880JSRZZ9\PAUZE 

5890s ZZ8\V0LeENDE LETTER 

5910:ZZ9\AANTAL iWEOiN 
5920STA#89 

59301 Z210\PAUZE 1 TEL 

5940LDA#32B : STA#B808 • , 

5950LDA#346 ; STA#B809 

5960JSRTT27\TEST EINDE ■ 

5970\VERLAA6 TELLER ^ . 

5980D£C#89;BNEZZ10 

S9f0f^TS\tl?me 

6000:ZZ11\BUFFER 

6010LDAa#82:STA#8C 

66^0LDYt0 

6030:ZZ12\ZOEK EINDE TEKST 
6040LDA(#8B) .YjCriPai09 
6050\EINDE GEVONDEN 

6060BEQZZ13 

6070\NOG NIET GEVONDEN 
60801NY:BNEZZ12 

6090\PAGINAGRENS 
6100INC#8C jL0A#8C : CI1Pa#A0 

6 1 1 0BNE 2 1 1 2\mmm - 

6120\NIET GEVONDEN 
6130BEQZZ15 

6 1 40 i 22 1 3\tm^ ' m m'imF^m 

6150DEY:CPYa#FF;BNEZZ14 
6160\PAGINAGRENS 
6170DEC#8C;LDA#8C:CI1Pa#81 
6180\BUFFERBEGIN 
6190BEQZZ15\TERUG 
6200:ZZ14\LAACJ UlT BUFFER 
6210LDA(#8B) .Y 
6220\COPY IN BUFFER 

6240STA ( #8D> .1^ • ^ ' i -'l^'^'^'- 

62mDY#8A ' 

626is\pmmmmm 

6270DEC#86 : L DA#86 : CMPa#FF 
6280BNEZZ13 

6290\BUFFERGRENS -i^^i^^Kuc 

6300DEC#8E:LDA#MiCriPat5r 

6310BNEZZ13 

6320L DAa«7F { STA#8E 

6330BNEZZ13 

6340:ZZ15\TERUG 

6350RTS 

6360 :N. jP.$6sR. 
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EIB s □ ia 



KENMI 



1121 

n3« 

••5« 

m 

m 

m 
•111 

•121 
•134 
fUl 
ItSI 
IIM 
•171 
•18^ 
•19« 
•2«^ 
•21^ 
•221 
•23« 
•24i 
•25« 
•26^ 
•27« 
•284 
•29^ 
•$•• 

m$ 

m 
m 

•35« 
•36« 
•37I 
•38« 
•39« 
Hit 
•Hi 

$m 
m 

•45^ 
•464 
4474 
4484 

m 

•54f 

mm 

•521 
•534 
•544 
4554 
4564 
4574 
•58^ 
•59^ 

•M^ 

•65^ 
•66^ 
•67^ 
•68^ 
#11 
1^ 
•71^ 
•72^ 
•73^ 
•74^ 
•75^ 
•76^ 
•77^ 

nil 
m 
•&•• 

•81^ 
4824 
4834 
4844 
4854 
4864 
1971 

m 

1891 
•941 



;tfft4ttftit 
;t4tfMfftf 

S* 
l« 
?# 
!* 



RBC 

READ BASICOOE-2 

DATE mm 

P.USKER 
ORAKENSTEYN 291 
76^8TRMjaO 



liiltMlllt l tittWIiU H iW ^ 
m 32K «••• - i9FFF 



Mm yj. 



mi ; 

•921 (xm nil 

•93^ ; 



m m. m m m m m. M.M M. 
VflllflllllW 



{HfWfftHf 



; THE DATA FORMAT ON TAPE IS ASCII: 

; 5 SEC 2444 HZOSTXOOATAO / <>0ATA<>CTX<>aiaC9»O5 SIC 24i| I 
; HOST SIGNIFICAfa ASCII-BIT IS 'P. 
; 1 » 2 t 244« HZ 

I • « 1 • t2if il?**'********^*'^ ' •'^ 

; THE TRANSPORT RftlE OF M m IS m iMl^ ' 

.OS 
.C£ 
.ES 

.BA $C8^^ 

•HG ICfiW', 

t 

ttwPIAFUm^lSKtHf 

PBD .SEIt^ M^BAI^^ 



;ttft 6522 VIA-2 REGISTERS Mtf 

VIA2 .Kicm ' 

Tia .DE VIA2H^4 

TICH .DE VIA2*4^5 

ACR .DE VIA2444B 

PCR .DE VIA2+$4C 

IFR .DE VIA2i$4D 

lER .DE nmm 



:T1. LATCH LOM. COUNTER LOM 
;T1 COUNTER HIGH 
;AUXILIARY CONTRa REGISTEfi 
;PERIPt€RAL CONTRa REGISTER 
•.INTERRUPT FLAG REGISTER 
I^RERRUPT ENABLE mmm 



.DE $CA44 


;CHECKSUN 


.DE CHSUM 




.DE X*i41 


{PERIOD COUNTER 


.DE X+$42 




.DE X+S43 


;P£RIOD-TIfC 


.DE X*$44 


••HALF PERIOO-TIHE 


.DE Xi$4S 




.DE Xm6 




Mtm 




.IIEI^«8 




.DE X4M9 


SSAVEACCU ' 


.DE X>MA 


;SAVE X-RE6 


.DE XH^B 


-.SAVE Y-«EG 


.DE U%K 




.DE XiS^D 




.DE X+ME 


tllNSYHOFFILE 


.DE X*MF 









;##« TEMPORARY DATA BUFFERS 
I 

CKSW 

X 

PRCNTL 
PRCNTH 
ZERO 
HLFPTM 
SIVL 
SIVH 
TIMECNTL 
TIHECNTH 

ma 

RArtSTARTl 
RAMSTARTH 
LENGTH. 
LENGTW 

if 
i 

;«« EXTERNAL SUBROUTIIC t«f 

PRCHA .DE iE444 ;PRIKT CHARACTER ROUTIIC 
KBIT .DE $ei44 UNIT KEYBORD 
PIEPER .DE iEC87 '.BUZZER 



MRITEl .DE $8427 

CREATEl .DE $8439 

aOSEl .DE $B44B 

ERtCS .DE IB4B7 



; «mt#tfffff*f #f « wf tff #f ttwf Hf if #fft*«#ttm*f «*• 

MMMMMM- CTABX: 

l itHfiiiiittJ i ititiiiifi tfHtwff»fHWfffffttftt*»*t»twf 

STA SAVEMXO ;SAVE FILE-4tANE POINTER 

STVSWCY 



'lie 



0846- A2 El 
C848- 24 39 B4 
C84B- B4 14 
C84D- 8E 4A CA 



4944 
4954 
4964 
4974 
4984 

C814- A9 17 499^ 



LDX •$£! 

JSR CREATEl 
BCS BUERA 
STXSAVEX 

L0A«I17 

mm 

$TAPBO 



:ERROR 

:SAVE FILE m 
;DESEL£CT DRIICS 



iiii 

m i 

C818- 78 U3« 
C819- A^ 12 
C81B- 2« IF C9 U5^ 
C81E-4C24C8 1464 
1474 ; 

C821-4CBEC9 148^ BUERA 

HH i tiwriiiitif • ■ 11 1 1 1 1 1 1 1 1 1 1 ■ I wi iiMii 1 1 11 itii i iiiii 1 l i t 



SEI '.NOINlSllim 
LDY H12 

JSR MESSY IPRXNT 'm l^'t* 
JTf READ 

J»f BUER 



C824- 

C826- 
C829- 



• A9 7F 

■ 80 IE CI 

■ A9 3p 

C82B- 2D IB CI 
C82E- 80 IB Cl 
C831- A9 •• 
C833- 8D IC Cl 
C836- 00 •• CA 
C83^80•CCA 
CSX- 8D 74 08 
C83F- A9 2^ 
C841- 8D 40 CA 
C844- 8D 75 C8 



0947- A9 14 

C849- 8D 42 CA 
C84C- 24 88 C8 
C84F- C9 44 
C851- 94 F4 
C853-C9 88 

^lE41CA 
C85A-D^ F^ 
C85C- CE ^2 CA 
C85F- D4 EB 
C861- •A 
C862- 38 
C863- E9 19 
C865- 8D43CA 



OliE-94f8 



113« ; 
1144 READ 
1154 
116^ 
117^ 
1181 

n9« 

12^« 
12i« 

122^ 
123^ 
124^ 
125^ 
126^ 
1271 I 

m tM«f mm 
129« ; 

13«^ »£AOER 
131 • 



LDA H7F 
STA lER 
LDA «$3F 
AND ACR 
STA ACR 
LDA •$•• 
STA PCR 
STA CHSUM 
STA RAKSTARIL 
STA STAIMHUl 
LDA •$2« 
STA RA«ST/«TH 
STA STAIMK$^2 



SSET INTERRUPT DISABLE MODE 

m mmmmtm mmB 



;SET CBl MOTIVE EDGE DETECT 
;CLEAR OCCKSUM 

;SET RAH START ADDRESS I2«^^ 

mmmmm 



C87^ 80 FF FF 
C876- C9 •S 
C878- H IE 
C87A- EE 74 C8 
C87D- D4 43 
C87F- e 75 C8 



C8©-A9 9F 

Gii4- (9 

C88*>- A9 FF 
CS8B- CD 74 OB 
C88E- D4 D8 



€89«- A^ •• 
CS92- 2^ IF C9 
4e 94 C9 



C898- 24 BB 
cm- CD 43 CA 
C89E- 94 F8 



1324 m 
1334 
1344 
1354 
1361 
1374 
138^ 
139^ 
1444 
1414 
1424 
1434 
1444 
14SI I 

1161 lii^ STIH^^ n Hi! 

m I 

vm tamu jsr hjper 

1491 CMP ZERO 

IS«I BfXllAmBiT 
1514 ; 

152« ;»«REAB |«|iM« 
1534 ; 



L0AH14 

STA PRCNTH 
JSR PERIOD 
CMP «i4^ 
BCC ^£AOER 
Of •$88 
BCSKADER 
INCPRCNTL 
B»€ ^ 
DEC PRCNTH 
M. HDR 
ASL A 
SEC 

SBC «19 
STA ZERO 



;SET PERIOD COUNTER 



'.PERIOQE «24I«HZ 
;PERIOOE »24^^HZ 

;N0T 256 PERIODES 

'.NOT 16i256PERI00ES OF 24^^HZ 
;PERIOOEnNE §2 (»^NNZ) 

;12^tt1Z TIHE-t»^USsIERO 



tFMSTARTSIT 



1544 JSRfffiYT 

155^ STAIND STA «FFFF 

156^ Cff H43 

1574 BEQ EOT 

1584 INC STAIWH$41 

1594 B^C EORAM 

1644 IMC STAIND*$I2 

1614 ; 

1624 CHECK EM) OF RAH «♦« 

1634 ; 



'.READ ore BYTE 
JCHARACTER TO TABLE 



;END OF TEXT -> 

;INCREf€NT POINTER 



1641 GOMM 
t65« 
1664 

167^ 
168« 
169^ 
17«^ : 

17M ;*w END OF WV1 w* 



^^^MAII9FFF 
Of STAIND*M2 
BIC STARTBIT 
LDA »$FF 

Of STAIND+m 
M. STARTBIT 



;NOT END OF Uff f 



LDY •$•• 

JSR fCSSY JPRINT 
Jtf SAVERDATA 



172^ 
173^ 
1744 

1754 ; 

1764 END Cf TEri. Oa OCKSUM tw 
1774 ; 

1784 EOT JSR Hjm 

1794 09 ZERO 

1844 fiCC EOT 



m OF ®«3RY' 



5 □ S 



KEIMMEIR 



CdAI-2«FDC8 1811 JSR RBYT iflEMOCKSUN 

tm^HH m mm 

C8A8-A9 31 1841 LDY H31 

C3AA- 2« tF C9 185* JSR fCSSY ;PRINT 'OCOCSUN EMOR' 

CdA[h4C84C? 186I J»f SA\^TA 

C8B«- M 44 187* OKE LDY «44 

C8B^ 21 IF C9 1881 JSR MESSY SPRINT 'MTA RGCEIO' 

(^4C M C9 ISM iff mm . 

1911 , -t %1J 



l$lf iii iiiiitii i iiniiiiiiiituiiiiiiiii 
1921 mm MEASURE ONE PERIOOnri ^ 



liteitiitiiittilfilifli 





1941 1 






CfffiS- ?l RR 

V/0(7v ZiW DO L-O 


ITjf rcniinJ 


.T<^ Ml FPFR 
wOn nLrrCA 






1701 rUrrtn 


LDA H14 




rpRf)- Of in ri 

LODu lU CI 


l7/f Mx 


Oil irn 




ciiCk- n PR 

UOvf rf ro 


1004 
iTOf 


Dcw ns 




rorou on inn 


1004 
l77l 


CTA IPO 


•n CAD rRi n Aft 

tUXIV\ vol rLflU 




'Mii 


IHA A41A 

Sri 






<f If 


tut rXR 




C8CA- 8D IC CI 


2«2I 


STA PCR 


tOfOSni ACTIVE est Qm ICTGCr 


KrCAAj nr rr 


^wof 


LDA iSFF 






2«4I 


TAX 




C8DI- 4n 1*5 n 


2«5« 


EOR TICN 


;GET QJijll fK 


roftO- on IP PA 

l/OUJ OU fO l/A 


2161 


STA TIfCCNTH 




C806- 8A 


2«7I 


TXA 




ron?- in ii ri 

toU/ In 


2«8f 


EORTia 




/SMu. fin 17 CA 


nn 


STA TItCCNIl 






21M 


LOAHFF 




rftnp- fin \i r\ 


21U 


STA Tia 


•.RESET TirtR 


roco_ on i^ ri 
Lot/ oU 10 Li 


2121 


STA TlCH 




rC3C^ IC AO PA 

Lotv>^ 4t to Ln 


213* 


LSR TItCNTH 


;OIVI0E TltCBY l 


rOCO- i.C 47 TA 

L«.o- 6c 1/ 


214« 


ROR TIMEOm 


tMo PUT n ir^em ^ 


rOCQ- AC AO PA 
Loci) 10 Ln 


215« 


LSR TIftCNTH 




r-OCr. LC A 7 PA 

Locc oc 1/ LA 


2161 


ROR TIMECNTL 




roci_ An 47 TA 
tori AU f/ m 


2171 


LDA TIfCCNTL 






m 






It 




ac 




C8F6- 60 14 CA 


22«« 


ADC HfPTM 


m PERIOD T miCQI 


C8F9- 8e •4 CA 


2211 


STX HJPTM 


SSA\€ m PERIOD T 


C8FC- 61 


2224 
2231 ; 


RTS 






2241 • f wwff«ff iff *fHffWfffWf* wf* n 1 1 n 1 ■ 1 11 f 




2251 itfttt 


READ 0»C BYTE tfi 






226t ;ffWWffftfmfffWfffWiiitiiiiiiiiiiiiiniiniiiiHHH 




» 1 








m»m 


LDY H48 


;SET BIT COUNTER 


WF- 48 


2294 RB 


PHA 




mh 21 B8 08 


2314 


JSR PERIOD 




C9I3- CD 13 CA 


2311 


af> im 




i:ye6- B« 16 


2324 


BCS FNDZRO 


;1244HZ? 


C9»8- 2« B8 C8 


2331 


JSR PERIOD 


:SECOND 2444HZ PERIOD ? 




mi 


SEC 






m 


BCS SHIFT 


{8RMCH ALtMYS 


m^m 




m 






m 




C91»- 6A 


2384 


ROR A 


;next bit to accu 


C911- 88 


2394 


DGY 




L912- D« EB 


2414 


BNE RB 


;N0T8BITS? 


L^14- 48 


2414 


PHA 




C915- 40 11 CA 


2424 


EORCHSUH 




C918- 80 M CA 


2434 


STACHSUN 


itramoesuN 


C91B- 68 


2444 


PU 




C91C- 29 7F 


2454 


AND K7F 


ICLEARIIT? 


C91E- 6« 


2464 
2471 S 


RTS 





C91F- B9 2£ C9 
C922- C9 12 
0924- F« •? 
C926- 24 44 E4 
C929- C8 
C92A- 4C IF C9 
C«Ih6« 



C92E- 40 4A 4F 
CSr31- 55 54 24 
C934- 4f 46 24 

1" ' • 

C943- - 
C94f.- ?i '•: 



:EM)QFTEXt ? 



2484 i m M 1 1 iim iin m i i ii 1 1 1 1 mi i w t tit t i i intmitnti i w 

2494 ;HMi mm msm mm 

2544 ;i mtfi4itnittii ii iii» i p j ^illl|i 

2514 ; 

2521 MESSY LDA fCSSiY |l0(|d CNNMO^ 
2534 CMP «43 

2544 6EQ fCSEND 

2554 JSRPRCHA 
2564 INY 
2574 JHPfCSSY 
2581 MESEM) RTS 

2591 ? 

2644 Mtff MESSAGES «## 

2614 ; 

2624 MESS .BY MD i4A 



'OUT OF MEMORY' I4A $40 443 



2631 



.BY m m *m wm-v m m m 



C949- 4F 44 45 
G94C-2D32IA 
CMF-I0I3 

C957- 24 44 41 
C95A- 54 41 4A 
C95D- 40 43 
C95F- 40 4A 43 
C96^ 48 45 43 
CM5-4BS3S5 
C968- 40 2I4S 
C96»-S2S2 4F 
C96E- 52 lA ID 
C971- 43 
C972- 40 4A 44 
C975- 41 54 41 
C978- 24 52 45 
C97B- 43 45 49 
C97E- 56 45 44 
C981- lAlO lS 



m .BY m m rnmim' hi hi t la 



2^ 



m 



JY HA 'CMBGKSyN ERROR' HA HO 113 



.BY HB HA m^mmm' HiDiiii 



C984- 24 44 El 
C987- 24 87 EC 
C9eA-AI 23 
C99C- 21 IF C9 
S8 



C994- 38 
C991- AD 75 C8 
C994- ED 40 CA 
C997- 80 4F CA 
C99A- AO 74 C8 
C99D-EBICCA 
C9H-8DIECA 



JSR kbit 
JSR PIEPER 
L0YII23 
JSR (CSSY 



JINIT. 



SPRINT 'SAVE DATA' 



ai iiNiEmuPT aiiBi£ 



HH 4 

2fM Mt i tMtiiiiiiiwt ' NtiitiitMitiii i iiiiiiiiitiM i iiiwwiWi 

2691 StMff SMERECaVEDIMifilf 

2711 Sii i it t itt wi H mtfmwi H iWMtttiiMitttttiiMiMtfiiiii 

2714 ; 

2724 SAVERDATA 
2734 
2741 
2751 

m 
tn% I 

2784 tiMf SET POINTERS TQ DATA m 
2794 t 

SEC ;CALaJUTE LENGTH OF FILE 
LDA STAIND^tl2 m OF UTA W 
SBCRAMSTARTH 

STALEN6TNH SBATA UNGTMI VALUE 
LDA STAIIfi»i4l ;E» OF DATA LON 
SBCRMtSTARIL 

STALBimL 30ATA LENTH. VALUE 
UM WtRMSTIRIN m fM W^ fmm 
LDY ILiRMSTARIL . • • 



2844 

2814 
2824 
2834 
2844 
2iSI 

m 
m 
m 
m I 

29H t«Hi MKTE DATA «Hf 





2914 ? 




C9A7- A£ 4A CA 


2924 


LDISMiX 


C9AA- 24 27 84 


2W4 


JSRKRIIEI 




2944 


BCS BUERC 




2954 ; 




C9AF- 4C 4B B4 


2964 EOWRITE 


jff aosEi 




2974 ; 




C9B^ AC 4B CA 


2984 BUERC 


LOY SAVEY 


C9B5- AD 49 CA 


??94 


LDA SAVEACOJ 


C9B8- 24 B7 B4 


3444 


JSRERtCS 


e9BB^ 4C 4B Bl 


3111 


JMP CLBSEl 




3121 1 




C9flE-CB7BI 


3131 ly^ 






3Mt I 








M 




Hit 1 





;GET FILE NR 
*,URITE DATA TO FILE 
IGRRQR 



;REST0R£ FILEHWC POINTER 



'.URITE ERROR 



1^ l #fi ii »i i ttwtgn ittiiiitniH iimi ii ii i t i m i m n 

ffifffffiftt BCSUBR ffMtffffiff 

4444 ;t«*Mf#m ttHftftH 

4454 ;tit««f»# BASICOOE-2 SUBROUTI^CS §«##««# 

4464 ;*t««t«f DATE 11-14-86 ftttttfttf 

4474 ;iff«fffftt fMiifim 

4484 P.LASKER til 

4191 Sfftil^fiHf ORAKENSTEYN 291 

nil ;*tff«ifH# 7648 TR AUCLO 

Ilif mHtffftf 45494-72178 
1121 t«t«ti«im 

4131 {IttitfHfMtffI 

4144 ; 
4154 } 

1161 M 

m M 
im mmm 
am Mmm 
iHi ; 

4211 t**H MONITOR SOBROUTtN^t 
4224 ; 

4231 GETASKIY .DE 4E4IC ;GET A KEY 

4244 PRTEXTSTR .OE $£44F ;PRINT A TEXTSTRINOr LAST CHAR. ^444 
4254 GETEVTAS .BE IEtl2 fOET A KEY IF Wm U Mf iWlSE A«$4I 
4264 ; 
•274 ; 

4284 ;♦♦«! MONITOR VARIABLES •«» 
4291 ; 

•^lOEVNQDQlIT .DE fCEl2 SOMIT BB^CE IttOE 
4311 ; 



C8«D- 2« IF El 
C81I- 14 
C811- 
C81^ 
C8I3- H 
C814- 6« 

C815- 2» 12 £• 
C818- 8D C8 
C81B- 6« 

^ C81C- 21 IC El 
C81F- 8D IC C8 
^C822- 61 



Er-B 5 □ Ef 



KEIMMEIR 



C8II- 4C ID Cd 

C8I3- 4C 15 C8 
C8I6- 4C IC C8 
C8I^ 4C 23 C8 



^ C8IC- 

m 



1321 ; 

f • ■t""iil"wiii ■■■■■■ ■■■■■ ■■▼▼W»»t ■•■■lill 

•341 ;fw JWf TAfla M* 
1361 I 

JTf OJRSORPOS iPUa CURSOR AT »€U POSITION 
JfP GETKEY ;GET A KEY 

;mit for a key 

'Ml 



Jlf>UAITKEY 
J?f BUZZER 



C823- 21 IF El 
C826- 17 
C827- M 
.C828- 61 



l37iajRS0RP 
1381 GETK 
1391 UAITK 
Mil BUZZ 
Mil ; 
M2I ; 

1431 KEY .DS I 

1441 ; 

1451 iHHffftfftHHf^ 

1461 BASICOOE-2 LI)€ l|l tfM 
1471 tffww mmm 

1481 ; 

1491 OJRSORPOS JSR PRTEXTSTR 
ISM .BY iI4 ; 

.OS 1 
.OS 1 
.BY ill 
RTS 



;SAVE PRESSED KEY 



ISII 
1521 
1531 
1541 
1551 
1561 

•571 ;tftf BASICOOE-2 LI« 211 #«* 
1581 t«Hff«mff««4ff 
1591 ; 

JSRGETEVTAS 
STA KEY 
RTS 



ffffwwi iiimn 



nmfffftwfi m iii n 

;PRIMT inT-STRIMG 
:DIRECT OJRSOR addressing NODE 
:H0RZ0NTAL POSITION 

;\eTiCAL position 

;END OF TaT-STRING 



iiiiiiiiiiinini 



■ VTWVWWVYVYTIVIIIIIIIIIIV 



;GETKEY 



1611 GETKEY 
1611 
1621 
1631 ; 

1641 ;Hfffffiiin im i nn » 
1651 ;*«# BASICOOE-2 LIfE 211 «« 
1661 itfmffffwtfiHfffftit^ 
1671 ; 

1681 WAITKEY JSR GETASKEY 
1691 STA KEY 

1711 RTS 
l/ll ; 

1721 ;f*fff«fffffffwfwwwiinii n i n mwHn nn inifw 
1731 ;#t« BASICODE-2 LI^C 251 «« 

•741 ; tf mt WHfiHHtWtff tfffffitMf f Wm«f f f Hit f HfMHf 

1751 ; 

JSR PRTEXTSTR ;PRINT TEXT-STRING 



^fWfffffffff l l H I I I II 



;UAIT FOR KEY 



1761 BUZZER 
1771 
1781 
1791 
1811 ; 
1811 



.BY M7 
.BY Ml 

RTS 

.EN 



•.BUZZER HOOE 

;END OF TEXT-STRING 




1 REN m i n ii n f*M» 

2 REN mmii ii BCSIRT 
SREIItMMMHi BASICOOE-2 ROUTIICS 

4 REH tfMWff* DATE 18-14-66 

5 REN twwttf P. LASrai 
6RENm«f«fH4 DRAKENSTEYN 291 
7RENmM«Hfi 76I8TRAUCL0 
8RENi«««wf4« 15491-72178 
9 REN iimiiiiiiit^tiiimiiiiiii^ 

II GOTO IMI 
21 GOTOllll 

IM H0=l:VE=l:PRINTai»(12);:RETlJRN 

III IF H0>79 OR VE>23 T>0 RETUW 

111 IF HO=n T>€N KHfHl:HF=l:REN NONITOR ADDRESSING NODE CODE 

112 IF \€=11 T>£N \€=\€«l:VF=l:REN NONITOR ADDRESSING NOOE CODE 

113 P0KE51217iH0fl:REN l-mSJE TO IC811 

114 P0KE5l218i\€*l:REN Y-WLUE TO IC812 

115 SYSS12M:REM OOSUB $C8M = PLACE CURSOR AT mi POSITION 

116 IF \^=l HO \«=VE-l:\ff^=«:PRINTai»(ll); 

117 IF »f=l T>CN HD=«>-l:»f=l:PRlNTa«i(8l; 
119 RETURN 

121 H0=fEEK(52745):VE=PEEK(52746):RETW<:R£M X=«EI9iY=$C£IA 

211 SYS512I3:REM GOSUB IC8I3 = GET KEY 

212 0=PEEK(51212):R£N KEY=$C8«C 
2M INI=CH»(0):IF 0=IT>£N IN$=" 
215 RETURN 

211 SYS 512I6:REN GOSUB IC8I6 = UAIT FOR KEY 

212 0=fEEK(51212):R£H KEY=$C8IC 

214 INM>{^(0) 

215 RETURN 

251 SYS512I9:REH GOSUB $C8«9 = BUZZER 

261 RV=RM)(1):RETURN 

271 FR=fRE(l):RETURN 

311 IF SR<.I1AND SRKIl T>CN SR=I 

311 IF SGN(SR)=-1 THEN SR$=STR$(SR):RETIRN 

312 SRi=flID$(STR$(SR)»2):RETURN 

311 0S=ABS(SR)*.5ill^-€N:0I=INT(0S):0D=OS-OI+l 

311 SR$="" 

312 IF 0S>=1E9 T»CN 321 

313 IF CN=I T}€N 0Di=":G0T0317 

314 IF 0D=1 T»€N 00$=".':GOT0316 

315 0Di=NI0i(STR$(00)i3iCmi) 

316 IF L£N(00<)<CN+1 nCM)Di=O0$*T:00T0316 

317 SRi=flID$(STR$(0I)»2)4OD$ 

318 IF SR<I m VAL(SRiK>l T}CN SRi='-'+SRt 

319 IF LEN(SR$)<CT T^CN SRi=" VSRiiOOTO 319 
321 IF LEN(SR$)>CT TJCN SR$=" 

321 IF LEN(SR$)<CT TJCN SR$=SR$+'f:G0T0321 

322 RETURN 

351 P0KE52754,64:R£H iCE12 = OHY PRINTER ON 

352 PRIMTSR$; 
355 RETURN 

361 P0KE52754»64:R£}1 $CE12 = ONLY PRINTER ON 

362 PRINT 

363 P0KE52754,128:REM $CE12 = PRINTER OFF 
367 RETURN 



********************************* 
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WANTED 

DEAD OR ALIVE! 

6809 Cross-Assembler 
to run under IX)S65 v2 

To be used with a planned 
6809 second processor 

REWARD 

Hardware design 
when and if completed 
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************************5*C******** 



10; TRACK 0 FOR NON BOOTABLE DISK'S 
20; FOR EC65 OR DOS- JUNIOR 
30;C0EN BOLTJES 
40; 

50NMIVEC=$E7CB 

60INIDSK=$F464 ;HEAD UP 

70AH0LD =$2363 

80; 

90*=$ 2200 
100; 

llOBOOTUP JSR STROUT ; PRINT NEXT 
120 JSR INIDSK 

130 JMP (NMIVEC) 

140; 

150STR0UT LDX #$00 

160STR0UU LDA TEXT.X 

170 BEQ STROEX ;=>END 

180 STA AHOLD 

190 JSR $F000 ;PRINT 

200 INX 

210 JMP STROUU 

220STROEX RTS 

230; 

240TEXT .BYTE $OA.$OD,$OA,$OA 

250 .BYTE '*********>}:j!c*;!<:jc:Jc,«>c-c5!c5>:5}cl 

260 .BYTE $OA,$OD 

270 .BYTE 'Insert Systemdisk to' 

280 .BYTE 'Boot up' .$0A.$0D.$07 

290 .BYTE $00 



Fabelachtig prin ten in kleur of zwartlwit 




OKIMATE 20 




OKI MICROLINE 182 



Futuristische OKI-afdrukkers erkend de OKImate 20 v.a. fl. 985.-- 

beste in Nederland. Nu ook voor Microline 182 v a fl li7n 

iedereenbetaalbaargeworden. exc b?w B^^^^^^ 
Aanslultbaar op Commodore 64. BBC, ^'^^^ a^lviesprijs. 

MSX e.a. homecomputers. OKI printers, door computers voor computers. I 



Vraag de dealerlijst bij de offici6le importeur jJikTOChnitrOtl Bm V 



Zwarteweg 110, Postbus 14, 1430 AA Aalsmeer T tel. 02977-22456 - telefax 02977-40968 - telex 13301 




